/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / games / _corewar / _runimage

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 21 52 75 6e 49 6d 61 67 |..... > |!RunImag|
|00000010| 65 0d 00 14 05 3a 0d 00 | 1e 33 ee 20 85 20 c8 99 |e....:..|.3. . ..|
|00000020| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 53 6d 61 73 | "Hourgl|ass_Smas|
|00000030| 68 22 3a eb 30 3a f1 f6 | 24 3b 22 20 61 74 20 6c |h":.0:..|$;" at l|
|00000040| 69 6e 65 20 22 3b 9e 3a | e0 0d 00 28 15 c8 99 20 |ine ";.:|...(... |
|00000050| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 6e 22 0d 00 |"Hourgla|ss_On"..|
|00000060| 32 05 3a 0d 00 3c 1a 70 | 72 6f 67 5f 74 69 74 6c |2.:..<.p|rog_titl|
|00000070| 65 24 3d 22 43 6f 72 65 | 20 57 61 72 22 0d 00 46 |e$="Core| War"..F|
|00000080| 20 70 72 6f 67 5f 64 61 | 74 65 24 3d 22 37 2e 30 | prog_da|te$="7.0|
|00000090| 31 20 28 37 2d 41 70 72 | 2d 39 31 29 22 0d 00 50 |1 (7-Apr|-91)"..P|
|000000a0| 1d 61 70 70 5f 70 61 74 | 68 24 3d 22 3c 43 6f 72 |.app_pat|h$="<Cor|
|000000b0| 65 57 61 72 24 44 69 72 | 3e 22 0d 00 5a 05 3a 0d |eWar$Dir|>"..Z.:.|
|000000c0| 00 64 11 69 6e 64 69 72 | 6c 65 6e 25 3d 35 35 30 |.d.indir|len%=550|
|000000d0| 0d 00 6e 56 de 20 74 61 | 73 6b 69 64 25 20 34 2c |..nV. ta|skid% 4,|
|000000e0| 71 25 20 35 30 30 2c 6d | 65 6e 75 62 75 66 25 20 |q% 500,m|enubuf% |
|000000f0| 34 30 30 2c 69 6e 64 69 | 72 25 20 69 6e 64 69 72 |400,indi|r% indir|
|00000100| 6c 65 6e 25 2c 66 61 63 | 74 6f 72 73 25 20 31 35 |len%,fac|tors% 15|
|00000110| 2c 66 61 63 25 20 31 35 | 2c 70 69 78 74 72 61 6e |,fac% 15|,pixtran|
|00000120| 73 25 20 32 35 35 0d 00 | 78 13 24 74 61 73 6b 69 |s% 255..|x.$taski|
|00000130| 64 25 3d 22 54 41 53 4b | 22 0d 00 82 44 c8 99 20 |d%="TASK|"...D.. |
|00000140| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|00000150| 22 2c 32 30 30 2c 21 74 | 61 73 6b 69 64 25 2c 70 |",200,!t|askid%,p|
|00000160| 72 6f 67 5f 74 69 74 6c | 65 24 20 b8 20 76 65 72 |rog_titl|e$ . ver|
|00000170| 73 69 6f 6e 25 2c 74 61 | 73 6b 69 64 25 0d 00 8c |sion%,ta|skid%...|
|00000180| 05 3a 0d 00 96 29 c8 99 | 20 22 57 69 6d 70 5f 53 |.:...)..| "Wimp_S|
|00000190| 6c 6f 74 53 69 7a 65 22 | 2c 2d 31 2c 2d 31 20 b8 |lotSize"|,-1,-1 .|
|000001a0| 20 73 74 61 72 74 73 6c | 6f 74 25 0d 00 a0 31 c8 | startsl|ot%...1.|
|000001b0| 99 20 22 57 69 6d 70 5f | 53 6c 6f 74 53 69 7a 65 |. "Wimp_|SlotSize|
|000001c0| 22 2c 73 74 61 72 74 73 | 6c 6f 74 25 2c 2d 31 20 |",starts|lot%,-1 |
|000001d0| b8 20 73 74 61 72 74 73 | 6c 6f 74 25 0d 00 aa 1b |. starts|lot%....|
|000001e0| 63 75 72 72 65 6e 74 73 | 6c 6f 74 25 3d 73 74 61 |currents|lot%=sta|
|000001f0| 72 74 73 6c 6f 74 25 0d | 00 b4 05 3a 0d 00 be 1d |rtslot%.|...:....|
|00000200| ee 20 85 20 d9 23 30 3a | ef 36 3a f2 65 72 72 6f |. . .#0:|.6:.erro|
|00000210| 72 62 6f 78 28 b9 29 3a | e0 0d 00 c8 05 3a 0d 00 |rbox(.):|.....:..|
|00000220| d2 10 f2 73 79 73 74 65 | 6d 5f 76 61 72 73 0d 00 |...syste|m_vars..|
|00000230| dc 0e f2 70 72 6f 67 5f | 69 6e 69 74 0d 00 e6 05 |...prog_|init....|
|00000240| 3a 0d 00 f0 0f 24 71 25 | 3d c4 31 30 2c bd 30 29 |:....$q%|=.10,.0)|
|00000250| 0d 00 fa 3b c8 99 20 22 | 58 4f 53 5f 52 65 61 64 |...;.. "|XOS_Read|
|00000260| 56 61 72 56 61 6c 22 2c | 22 43 6f 72 65 57 61 72 |VarVal",|"CoreWar|
|00000270| 24 53 70 65 65 64 22 2c | 71 25 2c 31 30 2c 30 2c |$Speed",|q%,10,0,|
|00000280| 30 20 b8 20 2c 2c 74 65 | 6d 70 25 0d 01 04 45 e7 |0 . ,,te|mp%...E.|
|00000290| 20 74 65 6d 70 25 20 3c | 3e 20 30 20 8c 20 74 69 | temp% <|> 0 . ti|
|000002a0| 6d 65 5f 73 68 61 72 65 | 25 20 3d 20 bb 28 a4 6d |me_share|% = .(.m|
|000002b0| 65 6d 74 6f 73 74 72 28 | 71 25 2c 31 30 29 29 20 |emtostr(|q%,10)) |
|000002c0| 8b 20 74 69 6d 65 5f 73 | 68 61 72 65 25 3d 31 35 |. time_s|hare%=15|
|000002d0| 0d 01 0e 27 e7 20 74 69 | 6d 65 5f 73 68 61 72 65 |...'. ti|me_share|
|000002e0| 25 20 3c 20 31 20 8c 20 | 74 69 6d 65 5f 73 68 61 |% < 1 . |time_sha|
|000002f0| 72 65 25 20 3d 20 31 0d | 01 18 2b e7 20 74 69 6d |re% = 1.|..+. tim|
|00000300| 65 5f 73 68 61 72 65 25 | 20 3e 20 31 35 30 20 8c |e_share%| > 150 .|
|00000310| 20 74 69 6d 65 5f 73 68 | 61 72 65 25 20 3d 20 31 | time_sh|are% = 1|
|00000320| 35 30 0d 01 22 22 24 73 | 70 65 65 64 5f 69 6e 64 |50..""$s|peed_ind|
|00000330| 69 72 25 20 3d 20 c3 28 | 74 69 6d 65 5f 73 68 61 |ir% = .(|time_sha|
|00000340| 72 65 25 29 0d 01 2c 05 | 3a 0d 01 36 0f 24 71 25 |re%)..,.|:..6.$q%|
|00000350| 3d c4 31 30 2c bd 30 29 | 0d 01 40 3c c8 99 20 22 |=.10,.0)|..@<.. "|
|00000360| 58 4f 53 5f 52 65 61 64 | 56 61 72 56 61 6c 22 2c |XOS_Read|VarVal",|
|00000370| 22 43 6f 72 65 57 61 72 | 24 43 79 63 6c 65 73 22 |"CoreWar|$Cycles"|
|00000380| 2c 71 25 2c 31 30 2c 30 | 2c 30 20 b8 20 2c 2c 74 |,q%,10,0|,0 . ,,t|
|00000390| 65 6d 70 25 0d 01 4a 6c | e7 20 74 65 6d 70 25 20 |emp%..Jl|. temp% |
|000003a0| 3c 3e 20 30 20 8c 20 6d | 61 78 5f 63 79 63 6c 65 |<> 0 . m|ax_cycle|
|000003b0| 73 25 20 3d 20 bb 28 a4 | 6d 65 6d 74 6f 73 74 72 |s% = .(.|memtostr|
|000003c0| 28 71 25 2c 31 30 29 29 | 3a 73 65 74 5f 6d 61 78 |(q%,10))|:set_max|
|000003d0| 5f 63 79 63 6c 65 73 25 | 3d b9 20 8b 20 6d 61 78 |_cycles%|=. . max|
|000003e0| 5f 63 79 63 6c 65 73 25 | 3d 31 35 30 30 30 3a 73 |_cycles%|=15000:s|
|000003f0| 65 74 5f 6d 61 78 5f 63 | 79 63 6c 65 73 25 3d a3 |et_max_c|ycles%=.|
|00000400| 0d 01 54 3f e7 20 3f 71 | 25 3d 97 22 4e 22 20 84 |..T?. ?q|%=."N" .|
|00000410| 20 3f 71 25 3d 97 22 6e | 22 20 8c 20 73 65 74 5f | ?q%=."n|" . set_|
|00000420| 6d 61 78 5f 63 79 63 6c | 65 73 25 3d a3 3a 6d 61 |max_cycl|es%=.:ma|
|00000430| 78 5f 63 79 63 6c 65 73 | 25 3d 31 35 30 30 30 0d |x_cycles|%=15000.|
|00000440| 01 5e 3e e7 20 6d 61 78 | 5f 63 79 63 6c 65 73 25 |.^>. max|_cycles%|
|00000450| 20 3c 20 32 20 8c 20 6d | 61 78 5f 63 79 63 6c 65 | < 2 . m|ax_cycle|
|00000460| 73 25 3d 31 35 30 30 30 | 3a 73 65 74 5f 6d 61 78 |s%=15000|:set_max|
|00000470| 5f 63 79 63 6c 65 73 25 | 3d a3 3a ef 37 0d 01 68 |_cycles%|=.:.7..h|
|00000480| 23 24 63 79 63 6c 65 73 | 5f 69 6e 64 69 72 25 20 |#$cycles|_indir% |
|00000490| 3d 20 c3 28 6d 61 78 5f | 63 79 63 6c 65 73 25 29 |= .(max_|cycles%)|
|000004a0| 0d 01 72 3d e7 20 73 65 | 74 5f 6d 61 78 5f 63 79 |..r=. se|t_max_cy|
|000004b0| 63 6c 65 73 25 20 8c 20 | 69 63 62 61 72 6d 65 6e |cles% . |icbarmen|
|000004c0| 75 24 3d a4 74 69 63 6b | 28 69 63 62 61 72 6d 65 |u$=.tick|(icbarme|
|000004d0| 6e 75 24 2c 22 43 79 63 | 6c 65 73 22 29 0d 01 7c |nu$,"Cyc|les")..||
|000004e0| 05 3a 0d 01 86 42 c8 99 | 20 22 58 4f 53 5f 52 65 |.:...B..| "XOS_Re|
|000004f0| 61 64 56 61 72 56 61 6c | 22 2c 22 43 6f 72 65 57 |adVarVal|","CoreW|
|00000500| 61 72 24 53 61 76 65 41 | 73 73 65 6d 62 6c 79 22 |ar$SaveA|ssembly"|
|00000510| 2c 71 25 2c 31 30 2c 30 | 2c 30 20 b8 20 2c 2c 74 |,q%,10,0|,0 . ,,t|
|00000520| 65 6d 70 25 0d 01 90 70 | e7 20 3f 71 25 3d 97 22 |emp%...p|. ?q%=."|
|00000530| 59 22 20 84 20 3f 71 25 | 3d 97 22 79 22 20 8c 20 |Y" . ?q%|=."y" . |
|00000540| 73 61 76 65 5f 63 6f 64 | 65 5f 74 6f 5f 66 69 6c |save_cod|e_to_fil|
|00000550| 65 25 3d b9 3a 69 63 62 | 61 72 6d 65 6e 75 24 3d |e%=.:icb|armenu$=|
|00000560| a4 74 69 63 6b 28 69 63 | 62 61 72 6d 65 6e 75 24 |.tick(ic|barmenu$|
|00000570| 2c 22 53 61 76 65 20 43 | 6f 64 65 22 29 20 8b 20 |,"Save C|ode") . |
|00000580| 73 61 76 65 5f 63 6f 64 | 65 5f 74 6f 5f 66 69 6c |save_cod|e_to_fil|
|00000590| 65 25 3d a3 0d 01 9a 05 | 3a 0d 01 a4 40 c8 99 20 |e%=.....|:...@.. |
|000005a0| 22 58 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 22 |"XOS_Rea|dVarVal"|
|000005b0| 2c 22 43 6f 72 65 57 61 | 72 24 53 69 6e 67 6c 65 |,"CoreWa|r$Single|
|000005c0| 54 61 73 6b 22 2c 71 25 | 2c 31 30 2c 30 2c 30 20 |Task",q%|,10,0,0 |
|000005d0| b8 20 2c 2c 74 65 6d 70 | 25 0d 01 ae 66 e7 20 3f |. ,,temp|%...f. ?|
|000005e0| 71 25 3d 97 22 59 22 20 | 84 20 3f 71 25 3d 97 22 |q%=."Y" |. ?q%=."|
|000005f0| 79 22 20 8c 20 73 69 6e | 67 6c 65 5f 74 61 73 6b |y" . sin|gle_task|
|00000600| 25 3d b9 3a 69 63 62 61 | 72 6d 65 6e 75 24 3d a4 |%=.:icba|rmenu$=.|
|00000610| 74 69 63 6b 28 69 63 62 | 61 72 6d 65 6e 75 24 2c |tick(icb|armenu$,|
|00000620| 22 53 69 6e 67 6c 65 20 | 54 61 73 6b 22 29 20 8b |"Single |Task") .|
|00000630| 20 73 69 6e 67 6c 65 5f | 74 61 73 6b 25 3d a3 0d | single_|task%=..|
|00000640| 01 b8 05 3a 0d 01 c2 3e | c8 99 20 22 58 4f 53 5f |...:...>|.. "XOS_|
|00000650| 52 65 61 64 56 61 72 56 | 61 6c 22 2c 22 43 6f 72 |ReadVarV|al","Cor|
|00000660| 65 57 61 72 24 46 69 6c | 65 54 79 70 65 22 2c 71 |eWar$Fil|eType",q|
|00000670| 25 2c 31 30 2c 30 2c 30 | 20 b8 20 2c 2c 74 65 6d |%,10,0,0| . ,,tem|
|00000680| 70 25 0d 01 cc 2d e7 20 | 74 65 6d 70 25 20 3c 3e |p%...-. |temp% <>|
|00000690| 20 30 20 80 20 a4 63 68 | 6b 68 65 78 28 a4 6d 65 | 0 . .ch|khex(.me|
|000006a0| 6d 74 6f 73 74 72 28 71 | 25 2c 33 29 29 20 8c 0d |mtostr(q|%,3)) ..|
|000006b0| 01 d6 2b 6f 62 6a 65 63 | 74 5f 66 69 6c 65 74 79 |..+objec|t_filety|
|000006c0| 70 65 25 3d a0 28 22 26 | 22 2b a4 6d 65 6d 74 6f |pe%=.("&|"+.memto|
|000006d0| 73 74 72 28 71 25 2c 33 | 29 29 0d 01 e0 05 cc 0d |str(q%,3|))......|
|000006e0| 01 ea 17 6f 62 6a 65 63 | 74 5f 66 69 6c 65 74 79 |...objec|t_filety|
|000006f0| 70 65 25 3d 2d 31 0d 01 | f4 05 cd 0d 01 fe 05 3a |pe%=-1..|.......:|
|00000700| 0d 02 08 16 ee 20 85 20 | f2 65 72 72 6f 72 62 6f |..... . |.errorbo|
|00000710| 78 28 b9 29 3a e0 0d 02 | 12 05 3a 0d 02 1c 0d 64 |x(.):...|..:....d|
|00000720| 72 61 67 62 6f 78 3d a3 | 0d 02 26 2b 69 63 62 61 |ragbox=.|..&+icba|
|00000730| 72 25 3d a4 69 63 6f 6e | 62 61 72 28 22 21 63 6f |r%=.icon|bar("!co|
|00000740| 72 65 77 61 72 22 2c 73 | 70 72 69 74 65 73 25 2c |rewar",s|prites%,|
|00000750| 2d 31 29 0d 02 30 05 3a | 0d 02 3a 25 63 6f 6d 24 |-1)..0.:|..:%com$|
|00000760| 3d a4 66 69 6c 74 65 72 | 28 a4 63 6f 6d 6d 61 6e |=.filter|(.comman|
|00000770| 64 74 61 69 6c 2c 33 32 | 2c 32 35 35 29 0d 02 44 |dtail,32|,255)..D|
|00000780| 12 e7 20 63 6f 6d 24 20 | 3c 3e 20 22 22 20 8c 0d |.. com$ |<> "" ..|
|00000790| 02 4e 1e 70 6c 61 79 65 | 72 24 28 6c 6f 61 64 65 |.N.playe|r$(loade|
|000007a0| 72 5f 6e 65 78 74 25 29 | 3d 63 6f 6d 24 0d 02 58 |r_next%)|=com$..X|
|000007b0| 40 68 25 3d ad 20 70 6c | 61 79 65 72 24 28 6c 6f |@h%=. pl|ayer$(lo|
|000007c0| 61 64 65 72 5f 6e 65 78 | 74 25 29 3a 70 72 6f 67 |ader_nex|t%):prog|
|000007d0| 5f 6c 65 6e 25 28 6c 6f | 61 64 65 72 5f 6e 65 78 |_len%(lo|ader_nex|
|000007e0| 74 25 29 3d a2 23 68 25 | 3a d9 23 68 25 0d 02 62 |t%)=.#h%|:.#h%..b|
|000007f0| 42 ff 20 22 4c 6f 61 64 | 20 22 2b 70 6c 61 79 65 |B. "Load| "+playe|
|00000800| 72 24 28 6c 6f 61 64 65 | 72 5f 6e 65 78 74 25 29 |r$(loade|r_next%)|
|00000810| 2b 22 20 22 2b c3 7e 70 | 72 6f 67 5f 63 6f 64 65 |+" "+.~p|rog_code|
|00000820| 25 28 6c 6f 61 64 65 72 | 5f 6e 65 78 74 25 29 0d |%(loader|_next%).|
|00000830| 02 6c 3a 24 6c 6f 61 64 | 65 72 5f 70 6c 25 28 6c |.l:$load|er_pl%(l|
|00000840| 6f 61 64 65 72 5f 6e 65 | 78 74 25 29 3d a4 6c 65 |oader_ne|xt%)=.le|
|00000850| 61 66 28 70 6c 61 79 65 | 72 24 28 6c 6f 61 64 65 |af(playe|r$(loade|
|00000860| 72 5f 6e 65 78 74 25 29 | 29 0d 02 76 4c 71 25 21 |r_next%)|)..vLq%!|
|00000870| 30 3d 6c 6f 61 64 65 72 | 25 3a 71 25 21 34 3d 6c |0=loader|%:q%!4=l|
|00000880| 6f 61 64 65 72 5f 6e 65 | 78 74 25 3a 71 25 21 38 |oader_ne|xt%:q%!8|
|00000890| 3d 30 3a 71 25 21 31 32 | 3d 30 3a c8 99 20 22 57 |=0:q%!12|=0:.. "W|
|000008a0| 69 6d 70 5f 53 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_SetI|conState|
|000008b0| 22 2c 2c 71 25 0d 02 80 | 35 6c 6f 61 64 65 72 5f |",,q%...|5loader_|
|000008c0| 6e 65 78 74 25 2b 3d 31 | 3a e7 20 6c 6f 61 64 65 |next%+=1|:. loade|
|000008d0| 72 5f 6e 65 78 74 25 3d | 32 20 8c 20 6c 6f 61 64 |r_next%=|2 . load|
|000008e0| 65 72 5f 6e 65 78 74 25 | 3d 30 0d 02 8a 13 f2 66 |er_next%|=0.....f|
|000008f0| 72 6f 6e 74 28 6c 6f 61 | 64 65 72 25 29 0d 02 94 |ront(loa|der%)...|
|00000900| 05 cd 0d 02 9e 05 3a 0d | 02 a8 16 c8 99 20 22 48 |......:.|..... "H|
|00000910| 6f 75 72 67 6c 61 73 73 | 5f 4f 66 66 22 0d 02 b2 |ourglass|_Off"...|
|00000920| 14 ee 20 85 20 f2 65 72 | 72 6f 72 62 6f 78 28 a3 |.. . .er|rorbox(.|
|00000930| 29 0d 02 bc 05 3a 0d 02 | c6 19 c8 99 20 22 57 69 |)....:..|.... "Wi|
|00000940| 6d 70 5f 44 72 61 67 42 | 6f 78 22 2c 2c 2d 31 0d |mp_DragB|ox",,-1.|
|00000950| 02 d0 05 f5 0d 02 da 1f | c8 99 20 22 57 69 6d 70 |........|.. "Wimp|
|00000960| 5f 50 6f 6c 6c 22 2c 30 | 2c 71 25 20 b8 20 70 6f |_Poll",0|,q% . po|
|00000970| 6c 6c 25 0d 02 e4 0e c8 | 8e 20 70 6f 6c 6c 25 20 |ll%.....|. poll% |
|00000980| ca 0d 02 ee 09 c9 20 30 | 20 3a 0d 02 f8 29 e7 20 |...... 0| :...). |
|00000990| ac 20 66 69 6e 69 73 68 | 65 64 5f 67 61 6d 65 25 |. finish|ed_game%|
|000009a0| 20 8c 20 f2 70 6c 61 79 | 5f 63 6f 72 65 77 61 72 | . .play|_corewar|
|000009b0| 28 a3 29 0d 03 02 2c e7 | 20 61 73 73 65 6d 62 6c |(.)...,.| assembl|
|000009c0| 65 72 5f 6f 70 65 72 61 | 74 69 76 65 25 20 8c 20 |er_opera|tive% . |
|000009d0| f2 61 73 73 65 6d 62 6c | 65 72 5f 74 61 73 6b 0d |.assembl|er_task.|
|000009e0| 03 0c 4a e7 20 ac 20 61 | 73 73 65 6d 62 6c 65 72 |..J. . a|ssembler|
|000009f0| 5f 6f 70 65 72 61 74 69 | 76 65 25 20 80 20 66 69 |_operati|ve% . fi|
|00000a00| 6e 69 73 68 65 64 5f 67 | 61 6d 65 25 20 80 20 63 |nished_g|ame% . c|
|00000a10| 75 72 72 65 6e 74 73 6c | 6f 74 25 3c 3e 73 74 61 |urrentsl|ot%<>sta|
|00000a20| 72 74 73 6c 6f 74 25 20 | 8c 0d 03 16 24 c8 99 20 |rtslot% |....$.. |
|00000a30| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|00000a40| 73 74 61 72 74 73 6c 6f | 74 25 2c 2d 31 0d 03 20 |startslo|t%,-1.. |
|00000a50| 1b 63 75 72 72 65 6e 74 | 73 6c 6f 74 25 3d 73 74 |.current|slot%=st|
|00000a60| 61 72 74 73 6c 6f 74 25 | 0d 03 2a 05 cd 0d 03 34 |artslot%|..*....4|
|00000a70| 1b c9 20 31 20 3a f2 72 | 65 64 72 61 77 5f 77 69 |.. 1 :.r|edraw_wi|
|00000a80| 6e 64 6f 77 28 71 25 29 | 0d 03 3e 42 c9 20 32 20 |ndow(q%)|..>B. 2 |
|00000a90| 3a f2 6f 70 65 6e 5f 77 | 69 6e 64 6f 77 28 21 71 |:.open_w|indow(!q|
|00000aa0| 25 2c 71 25 21 34 2c 71 | 25 21 38 2c 71 25 21 31 |%,q%!4,q|%!8,q%!1|
|00000ab0| 32 2c 71 25 21 31 36 2c | 71 25 21 32 30 2c 71 25 |2,q%!16,|q%!20,q%|
|00000ac0| 21 32 34 2c 71 25 21 32 | 38 29 0d 03 48 1b c9 20 |!24,q%!2|8)..H.. |
|00000ad0| 33 20 3a f2 63 6c 6f 73 | 65 5f 77 69 6e 64 6f 77 |3 :.clos|e_window|
|00000ae0| 28 21 71 25 29 0d 03 52 | 09 c9 20 34 20 3a 0d 03 |(!q%)..R|.. 4 :..|
|00000af0| 5c 09 c9 20 35 20 3a 0d | 03 66 35 c9 20 36 20 3a |\.. 5 :.|.f5. 6 :|
|00000b00| f2 63 68 65 63 6b 6d 6f | 75 73 65 28 21 71 25 2c |.checkmo|use(!q%,|
|00000b10| 71 25 21 34 2c 71 25 21 | 38 2c 71 25 21 31 32 2c |q%!4,q%!|8,q%!12,|
|00000b20| 71 25 21 31 36 2c 71 25 | 21 32 30 29 0d 03 70 19 |q%!16,q%|!20)..p.|
|00000b30| c9 20 37 20 3a f2 64 72 | 61 67 5f 72 65 74 75 72 |. 7 :.dr|ag_retur|
|00000b40| 6e 28 71 25 29 0d 03 7a | 09 c9 20 38 20 3a 0d 03 |n(q%)..z|.. 8 :..|
|00000b50| 84 18 c9 20 39 20 3a f2 | 6d 65 6e 75 73 65 6c 65 |... 9 :.|menusele|
|00000b60| 63 74 28 71 25 29 0d 03 | 8e 18 c9 20 31 37 2c 31 |ct(q%)..|... 17,1|
|00000b70| 38 3a f2 72 65 63 65 69 | 76 65 28 71 25 29 0d 03 |8:.recei|ve(q%)..|
|00000b80| 98 13 c9 20 31 39 3a f2 | 6e 6f 61 63 6b 28 71 25 |... 19:.|noack(q%|
|00000b90| 29 0d 03 a2 05 cb 0d 03 | ac 07 fd 20 a3 0d 03 b6 |).......|... ....|
|00000ba0| 05 e0 0d 03 c0 05 3a 0d | 03 ca 12 dd 20 f2 72 65 |......:.|.... .re|
|00000bb0| 63 65 69 76 65 28 71 25 | 29 0d 03 d4 0e c8 8e 20 |ceive(q%|)...... |
|00000bc0| 71 25 21 31 36 20 ca 0d | 03 de 16 c9 20 26 30 30 |q%!16 ..|.... &00|
|00000bd0| 30 30 30 20 3a 20 f2 66 | 69 6e 69 73 68 0d 03 e8 |000 : .f|inish...|
|00000be0| 16 c9 20 31 3a 20 f2 64 | 61 74 61 73 61 76 65 28 |.. 1: .d|atasave(|
|00000bf0| 71 25 29 0d 03 f2 19 c9 | 20 32 3a 20 f2 64 61 74 |q%).....| 2: .dat|
|00000c00| 61 73 61 76 65 61 63 6b | 28 71 25 29 0d 03 fc 18 |asaveack|(q%)....|
|00000c10| c9 20 33 2c 35 3a 20 f2 | 64 61 74 61 6c 6f 61 64 |. 3,5: .|dataload|
|00000c20| 28 71 25 29 0d 04 06 19 | c9 20 34 3a 20 f2 64 61 |(q%)....|. 4: .da|
|00000c30| 74 61 6c 6f 61 64 61 63 | 6b 28 71 25 29 0d 04 10 |taloadac|k(q%)...|
|00000c40| 1a c9 20 37 3a 20 f2 72 | 61 6d 74 72 61 6e 73 6d |.. 7: .r|amtransm|
|00000c50| 69 74 28 71 25 29 20 0d | 04 1a 54 c9 20 39 3a 20 |it(q%) .|..T. 9: |
|00000c60| f2 67 65 74 6d 6f 64 65 | 69 6e 66 6f 3a c8 99 20 |.getmode|info:.. |
|00000c70| 22 57 69 6d 70 5f 46 6f | 72 63 65 52 65 64 72 61 |"Wimp_Fo|rceRedra|
|00000c80| 77 22 2c 73 63 72 65 65 | 6e 25 2c 30 2c 30 2c 73 |w",scree|n%,0,0,s|
|00000c90| 63 72 65 65 6e 5f 77 69 | 64 74 68 25 2c 73 63 72 |creen_wi|dth%,scr|
|00000ca0| 65 65 6e 5f 68 65 69 67 | 68 74 25 0d 04 24 0e c9 |een_heig|ht%..$..|
|00000cb0| 20 26 34 30 30 43 31 20 | 3a 0d 04 2e 2a 21 71 25 | &400C1 |:...*!q%|
|00000cc0| 3d 34 3a 71 25 21 34 3d | 35 3a 71 25 21 38 3d 31 |=4:q%!4=|5:q%!8=1|
|00000cd0| 31 3a 71 25 21 31 32 3d | 31 32 3a 71 25 21 31 36 |1:q%!12=|12:q%!16|
|00000ce0| 3d 2d 31 0d 04 38 25 c8 | 99 20 22 4f 53 5f 52 65 |=-1..8%.|. "OS_Re|
|00000cf0| 61 64 56 64 75 56 61 72 | 69 61 62 6c 65 73 22 2c |adVduVar|iables",|
|00000d00| 71 25 2c 71 25 2b 32 30 | 0d 04 42 37 6d 61 78 5f |q%,q%+20|..B7max_|
|00000d10| 78 5f 73 63 72 25 3d 71 | 25 21 32 38 2b 31 3c 3c |x_scr%=q|%!28+1<<|
|00000d20| 71 25 21 32 30 3a 6d 61 | 78 5f 79 5f 73 63 72 25 |q%!20:ma|x_y_scr%|
|00000d30| 3d 71 25 21 33 32 2b 31 | 3c 3c 71 25 21 32 34 0d |=q%!32+1|<<q%!24.|
|00000d40| 04 4c 10 f2 67 65 74 6d | 6f 64 65 69 6e 66 6f 0d |.L..getm|odeinfo.|
|00000d50| 04 56 05 cb 0d 04 60 05 | e1 0d 04 6a 05 3a 0d 04 |.V....`.|...j.:..|
|00000d60| 74 2d dd 20 f2 63 68 65 | 63 6b 6d 6f 75 73 65 28 |t-. .che|ckmouse(|
|00000d70| 78 25 2c 79 25 2c 62 25 | 2c 77 68 61 6e 64 25 2c |x%,y%,b%|,whand%,|
|00000d80| 69 68 61 6e 64 25 2c 6f | 62 25 29 0d 04 7e 6c e7 |ihand%,o|b%)..~l.|
|00000d90| 20 77 68 61 6e 64 25 3d | 2d 32 20 80 20 62 25 3d | whand%=|-2 . b%=|
|00000da0| 32 20 8c 20 f2 64 6f 6d | 65 6e 75 28 31 2c 6d 65 |2 . .dom|enu(1,me|
|00000db0| 6e 75 62 75 66 25 2c 69 | 63 62 61 72 6d 65 6e 75 |nubuf%,i|cbarmenu|
|00000dc0| 24 2c 70 72 6f 67 5f 74 | 69 74 6c 65 24 2c 78 25 |$,prog_t|itle$,x%|
|00000dd0| 2d 36 34 2c 39 36 2b 34 | 30 2a a4 63 6f 75 6e 74 |-64,96+4|0*.count|
|00000de0| 69 74 65 6d 73 28 69 63 | 62 61 72 6d 65 6e 75 24 |items(ic|barmenu$|
|00000df0| 2c 22 2c 22 29 20 29 0d | 04 88 52 e7 20 77 68 61 |,",") ).|..R. wha|
|00000e00| 6e 64 25 3d 73 63 72 65 | 65 6e 25 20 80 20 62 25 |nd%=scre|en% . b%|
|00000e10| 3d 32 20 8c 20 f2 64 6f | 6d 65 6e 75 28 32 2c 6d |=2 . .do|menu(2,m|
|00000e20| 65 6e 75 62 75 66 25 2c | 73 63 72 65 65 6e 6d 65 |enubuf%,|screenme|
|00000e30| 6e 75 24 2c 70 72 6f 67 | 5f 74 69 74 6c 65 24 2c |nu$,prog|_title$,|
|00000e40| 78 25 2d 36 34 2c 79 25 | 29 0d 04 92 3e e7 20 77 |x%-64,y%|)...>. w|
|00000e50| 68 61 6e 64 25 3d 73 61 | 76 65 5f 77 69 6e 25 20 |hand%=sa|ve_win% |
|00000e60| 80 20 69 68 61 6e 64 25 | 3d 32 20 8c 20 f2 73 65 |. ihand%|=2 . .se|
|00000e70| 74 75 70 64 72 61 67 62 | 6f 78 28 73 61 76 65 5f |tupdragb|ox(save_|
|00000e80| 77 69 6e 25 2c 32 29 0d | 04 9c 46 e7 20 28 77 68 |win%,2).|..F. (wh|
|00000e90| 61 6e 64 25 20 3d 20 2d | 32 20 84 20 28 77 68 61 |and% = -|2 . (wha|
|00000ea0| 6e 64 25 20 3d 20 73 63 | 72 65 65 6e 25 20 80 20 |nd% = sc|reen% . |
|00000eb0| 66 69 6e 69 73 68 65 64 | 5f 67 61 6d 65 25 29 29 |finished|_game%))|
|00000ec0| 20 80 20 28 62 25 20 80 | 20 35 29 20 8c 0d 04 a6 | . (b% .| 5) ....|
|00000ed0| 49 e7 20 ac 20 66 69 6e | 69 73 68 65 64 5f 67 61 |I. . fin|ished_ga|
|00000ee0| 6d 65 25 20 80 20 ac 20 | 73 63 72 65 65 6e 5f 75 |me% . . |screen_u|
|00000ef0| 70 25 20 8c 20 f2 66 72 | 6f 6e 74 28 73 63 72 65 |p% . .fr|ont(scre|
|00000f00| 65 6e 25 29 20 8b 20 f2 | 66 72 6f 6e 74 28 6c 6f |en%) . .|front(lo|
|00000f10| 61 64 65 72 25 29 0d 04 | b0 05 cd 0d 04 ba 47 e7 |ader%)..|......G.|
|00000f20| 20 77 68 61 6e 64 25 20 | 3d 20 6c 6f 61 64 65 72 | whand% |= loader|
|00000f30| 25 20 80 20 69 68 61 6e | 64 25 20 3d 20 33 20 80 |% . ihan|d% = 3 .|
|00000f40| 20 70 6c 61 79 65 72 24 | 28 30 29 3c 3e 22 22 20 | player$|(0)<>"" |
|00000f50| 80 20 70 6c 61 79 65 72 | 24 28 31 29 3c 3e 22 22 |. player|$(1)<>""|
|00000f60| 20 8c 0d 04 c4 25 e7 20 | 62 25 20 3d 20 34 20 8c | ....%. |b% = 4 .|
|00000f70| 20 f2 63 6c 6f 73 65 5f | 77 69 6e 64 6f 77 28 6c | .close_|window(l|
|00000f80| 6f 61 64 65 72 25 29 0d | 04 ce 14 f2 70 6c 61 79 |oader%).|....play|
|00000f90| 5f 63 6f 72 65 77 61 72 | 28 b9 29 0d 04 d8 05 cd |_corewar|(.).....|
|00000fa0| 0d 04 e2 05 e1 0d 04 ec | 05 3a 0d 04 f6 19 dd 20 |........|.:..... |
|00000fb0| f2 6d 65 6e 75 73 65 6c | 65 63 74 28 6d 65 6e 75 |.menusel|ect(menu|
|00000fc0| 73 25 29 0d 05 00 1a ea | 20 61 2c 61 24 2c 6c 65 |s%).....| a,a$,le|
|00000fd0| 76 65 6c 31 24 2c 6c 65 | 76 65 6c 32 24 0d 05 0a |vel1$,le|vel2$...|
|00000fe0| 3d c8 99 20 22 57 69 6d | 70 5f 44 65 63 6f 64 65 |=.. "Wim|p_Decode|
|00000ff0| 4d 65 6e 75 22 2c 2c 28 | 6d 65 6e 75 62 75 66 25 |Menu",,(|menubuf%|
|00001000| 2b 34 29 2c 6d 65 6e 75 | 73 25 2c c4 32 30 30 2c |+4),menu|s%,.200,|
|00001010| 22 20 22 29 b8 2c 2c 2c | 61 24 0d 05 14 0f e7 20 |" ").,,,|a$..... |
|00001020| 61 24 3d 22 22 20 8c 20 | e1 0d 05 1e 1a 6c 65 76 |a$="" . |.....lev|
|00001030| 65 6c 31 24 3d a4 70 61 | 72 28 61 24 2c 22 2e 22 |el1$=.pa|r(a$,"."|
|00001040| 2c 61 29 0d 05 28 1a 6c | 65 76 65 6c 32 24 3d a4 |,a)..(.l|evel2$=.|
|00001050| 70 61 72 28 61 24 2c 22 | 2e 22 2c 61 29 0d 05 32 |par(a$,"|.",a)..2|
|00001060| 10 c8 8e 20 6c 65 76 65 | 6c 31 24 20 ca 0d 05 3c |... leve|l1$ ...<|
|00001070| 05 3a 0d 05 46 17 c9 20 | 22 51 75 69 74 22 20 3a |.:..F.. |"Quit" :|
|00001080| f2 66 69 6e 69 73 68 3a | e0 0d 05 50 05 3a 0d 05 |.finish:|...P.:..|
|00001090| 5a 0e c9 20 22 53 74 6f | 70 22 20 3a 0d 05 64 18 |Z.. "Sto|p" :..d.|
|000010a0| e7 20 ac 20 66 69 6e 69 | 73 68 65 64 5f 67 61 6d |. . fini|shed_gam|
|000010b0| 65 25 20 8c 0d 05 6e 14 | 66 69 6e 69 73 68 65 64 |e% ...n.|finished|
|000010c0| 5f 67 61 6d 65 25 3d b9 | 0d 05 78 3a 73 63 72 65 |_game%=.|..x:scre|
|000010d0| 65 6e 6d 65 6e 75 24 3d | a4 6d 65 6e 75 5f 73 77 |enmenu$=|.menu_sw|
|000010e0| 61 70 28 73 63 72 65 65 | 6e 6d 65 6e 75 24 2c 22 |ap(scree|nmenu$,"|
|000010f0| 43 6f 6e 74 69 6e 75 65 | 22 2c 22 50 61 75 73 65 |Continue|","Pause|
|00001100| 22 29 0d 05 82 2a 73 63 | 72 65 65 6e 6d 65 6e 75 |")...*sc|reenmenu|
|00001110| 24 3d a4 67 72 65 79 28 | 73 63 72 65 65 6e 6d 65 |$=.grey(|screenme|
|00001120| 6e 75 24 2c 22 50 61 75 | 73 65 22 29 0d 05 8c 29 |nu$,"Pau|se")...)|
|00001130| 73 63 72 65 65 6e 6d 65 | 6e 75 24 3d a4 67 72 65 |screenme|nu$=.gre|
|00001140| 79 28 73 63 72 65 65 6e | 6d 65 6e 75 24 2c 22 53 |y(screen|menu$,"S|
|00001150| 74 6f 70 22 29 0d 05 96 | 27 69 63 62 61 72 6d 65 |top")...|'icbarme|
|00001160| 6e 75 24 3d a4 67 72 65 | 79 28 69 63 62 61 72 6d |nu$=.gre|y(icbarm|
|00001170| 65 6e 75 24 2c 22 53 74 | 6f 70 22 29 0d 05 a0 58 |enu$,"St|op")...X|
|00001180| 24 62 61 6e 6e 65 72 25 | 3d 22 53 74 6f 70 70 65 |$banner%|="Stoppe|
|00001190| 64 22 2b bd 30 3a 3a 71 | 25 21 30 3d 73 63 72 65 |d"+.0::q|%!0=scre|
|000011a0| 65 6e 25 3a 71 25 21 34 | 3d 30 3a 71 25 21 38 3d |en%:q%!4|=0:q%!8=|
|000011b0| 30 3a 71 25 21 31 32 3d | 30 3a c8 99 20 22 57 69 |0:q%!12=|0:.. "Wi|
|000011c0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|000011d0| 2c 2c 71 25 0d 05 aa 1f | 24 69 63 6f 6e 62 61 72 |,,q%....|$iconbar|
|000011e0| 5f 73 70 72 69 74 65 25 | 3d 22 21 63 6f 72 65 77 |_sprite%|="!corew|
|000011f0| 61 72 22 0d 05 b4 41 71 | 25 21 30 3d 2d 32 3a 71 |ar"...Aq|%!0=-2:q|
|00001200| 25 21 34 3d 69 63 62 61 | 72 25 3a 71 25 21 38 3d |%!4=icba|r%:q%!8=|
|00001210| 30 3a 71 25 21 31 32 3d | 30 3a c8 99 20 22 57 69 |0:q%!12=|0:.. "Wi|
|00001220| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00001230| 2c 2c 71 25 0d 05 be 05 | cd 0d 05 c8 05 3a 0d 05 |,,q%....|.....:..|
|00001240| d2 0f c9 20 22 50 61 75 | 73 65 22 20 3a 0d 05 dc |... "Pau|se" :...|
|00001250| 12 70 61 75 73 65 64 5f | 74 69 6d 65 25 3d 91 0d |.paused_|time%=..|
|00001260| 05 e6 0d 70 61 75 73 65 | 64 25 3d b9 0d 05 f0 3a |...pause|d%=....:|
|00001270| 73 63 72 65 65 6e 6d 65 | 6e 75 24 3d a4 6d 65 6e |screenme|nu$=.men|
|00001280| 75 5f 73 77 61 70 28 73 | 63 72 65 65 6e 6d 65 6e |u_swap(s|creenmen|
|00001290| 75 24 2c 22 50 61 75 73 | 65 22 2c 22 43 6f 6e 74 |u$,"Paus|e","Cont|
|000012a0| 69 6e 75 65 22 29 0d 05 | fa 2b 24 62 61 6e 6e 65 |inue")..|.+$banne|
|000012b0| 72 25 3d 22 20 50 61 75 | 73 65 64 20 61 74 20 63 |r%=" Pau|sed at c|
|000012c0| 79 63 6c 65 20 22 2b c3 | 28 21 63 79 63 6c 65 73 |ycle "+.|(!cycles|
|000012d0| 29 0d 06 04 41 71 25 21 | 30 3d 73 63 72 65 65 6e |)...Aq%!|0=screen|
|000012e0| 25 3a 71 25 21 34 3d 30 | 3a 71 25 21 38 3d 30 3a |%:q%!4=0|:q%!8=0:|
|000012f0| 71 25 21 31 32 3d 30 3a | c8 99 20 22 57 69 6d 70 |q%!12=0:|.. "Wimp|
|00001300| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00001310| 71 25 0d 06 0e 1f 24 69 | 63 6f 6e 62 61 72 5f 73 |q%....$i|conbar_s|
|00001320| 70 72 69 74 65 25 3d 22 | 21 63 6f 72 65 77 61 72 |prite%="|!corewar|
|00001330| 22 0d 06 18 41 71 25 21 | 30 3d 2d 32 3a 71 25 21 |"...Aq%!|0=-2:q%!|
|00001340| 34 3d 69 63 62 61 72 25 | 3a 71 25 21 38 3d 30 3a |4=icbar%|:q%!8=0:|
|00001350| 71 25 21 31 32 3d 30 3a | c8 99 20 22 57 69 6d 70 |q%!12=0:|.. "Wimp|
|00001360| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_SetIcon|State",,|
|00001370| 71 25 0d 06 22 05 cd 0d | 06 2c 05 3a 0d 06 36 12 |q%.."...|.,.:..6.|
|00001380| c9 20 22 43 6f 6e 74 69 | 6e 75 65 22 20 3a 0d 06 |. "Conti|nue" :..|
|00001390| 40 0d 70 61 75 73 65 64 | 25 3d a3 0d 06 4a 3a 73 |@.paused|%=...J:s|
|000013a0| 63 72 65 65 6e 6d 65 6e | 75 24 3d a4 6d 65 6e 75 |creenmen|u$=.menu|
|000013b0| 5f 73 77 61 70 28 73 63 | 72 65 65 6e 6d 65 6e 75 |_swap(sc|reenmenu|
|000013c0| 24 2c 22 43 6f 6e 74 69 | 6e 75 65 22 2c 22 50 61 |$,"Conti|nue","Pa|
|000013d0| 75 73 65 22 29 0d 06 54 | 20 24 62 61 6e 6e 65 72 |use")..T| $banner|
|000013e0| 25 3d 22 42 61 74 74 6c | 65 20 50 72 6f 63 65 65 |%="Battl|e Procee|
|000013f0| 64 69 6e 67 22 0d 06 5e | 41 71 25 21 30 3d 73 63 |ding"..^|Aq%!0=sc|
|00001400| 72 65 65 6e 25 3a 71 25 | 21 34 3d 30 3a 71 25 21 |reen%:q%|!4=0:q%!|
|00001410| 38 3d 30 3a 71 25 21 31 | 32 3d 30 3a c8 99 20 22 |8=0:q%!1|2=0:.. "|
|00001420| 57 69 6d 70 5f 53 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Set|IconStat|
|00001430| 65 22 2c 2c 71 25 0d 06 | 68 20 24 69 63 6f 6e 62 |e",,q%..|h $iconb|
|00001440| 61 72 5f 73 70 72 69 74 | 65 25 3d 22 63 6f 72 65 |ar_sprit|e%="core|
|00001450| 5f 77 6f 72 6b 22 0d 06 | 72 41 71 25 21 30 3d 2d |_work"..|rAq%!0=-|
|00001460| 32 3a 71 25 21 34 3d 69 | 63 62 61 72 25 3a 71 25 |2:q%!4=i|cbar%:q%|
|00001470| 21 38 3d 30 3a 71 25 21 | 31 32 3d 30 3a c8 99 20 |!8=0:q%!|12=0:.. |
|00001480| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|00001490| 74 65 22 2c 2c 71 25 0d | 06 7c 21 73 74 61 72 74 |te",,q%.|.|!start|
|000014a0| 5f 74 69 6d 65 25 2b 3d | 28 91 2d 70 61 75 73 65 |_time%+=|(.-pause|
|000014b0| 64 5f 74 69 6d 65 25 29 | 0d 06 86 05 cd 0d 06 90 |d_time%)|........|
|000014c0| 05 3a 0d 06 9a 24 c9 20 | 22 53 68 6f 77 20 53 63 |.:...$. |"Show Sc|
|000014d0| 72 65 65 6e 22 20 3a f2 | 66 72 6f 6e 74 28 73 63 |reen" :.|front(sc|
|000014e0| 72 65 65 6e 25 29 0d 06 | a4 05 3a 0d 06 ae 10 c9 |reen%)..|..:.....|
|000014f0| 20 22 43 79 63 6c 65 73 | 22 20 3a 0d 06 b8 14 e7 | "Cycles|" :.....|
|00001500| 20 6c 65 76 65 6c 32 24 | 20 3d 20 22 22 20 8c 0d | level2$| = "" ..|
|00001510| 06 c2 51 73 65 74 5f 6d | 61 78 5f 63 79 63 6c 65 |..Qset_m|ax_cycle|
|00001520| 73 25 3d ac 20 73 65 74 | 5f 6d 61 78 5f 63 79 63 |s%=. set|_max_cyc|
|00001530| 6c 65 73 25 3a 69 63 62 | 61 72 6d 65 6e 75 24 3d |les%:icb|armenu$=|
|00001540| a4 74 6f 67 67 6c 65 74 | 69 63 6b 28 69 63 62 61 |.togglet|ick(icba|
|00001550| 72 6d 65 6e 75 24 2c 22 | 43 79 63 6c 65 73 22 29 |rmenu$,"|Cycles")|
|00001560| 0d 06 cc 24 24 63 79 63 | 6c 65 73 5f 69 6e 64 69 |...$$cyc|les_indi|
|00001570| 72 25 20 3d 20 c3 28 6d | 61 78 5f 63 79 63 6c 65 |r% = .(m|ax_cycle|
|00001580| 73 25 29 20 0d 06 d6 05 | cc 0d 06 e0 21 6d 61 78 |s%) ....|....!max|
|00001590| 5f 63 79 63 6c 65 73 25 | 3d bb 28 24 63 79 63 6c |_cycles%|=.($cycl|
|000015a0| 65 73 5f 69 6e 64 69 72 | 25 29 0d 06 ea 27 e7 20 |es_indir|%)...'. |
|000015b0| 6d 61 78 5f 63 79 63 6c | 65 73 25 20 3c 20 32 20 |max_cycl|es% < 2 |
|000015c0| 8c 20 6d 61 78 5f 63 79 | 63 6c 65 73 25 20 3d 20 |. max_cy|cles% = |
|000015d0| 32 0d 06 f4 24 24 63 79 | 63 6c 65 73 5f 69 6e 64 |2...$$cy|cles_ind|
|000015e0| 69 72 25 20 3d 20 c3 28 | 6d 61 78 5f 63 79 63 6c |ir% = .(|max_cycl|
|000015f0| 65 73 25 29 20 0d 06 fe | 3b 73 65 74 5f 6d 61 78 |es%) ...|;set_max|
|00001600| 5f 63 79 63 6c 65 73 25 | 3d b9 3a 69 63 62 61 72 |_cycles%|=.:icbar|
|00001610| 6d 65 6e 75 24 3d a4 74 | 69 63 6b 28 69 63 62 61 |menu$=.t|ick(icba|
|00001620| 72 6d 65 6e 75 24 2c 22 | 43 79 63 6c 65 73 22 29 |rmenu$,"|Cycles")|
|00001630| 0d 07 08 05 cd 0d 07 12 | 05 3a 0d 07 1c 0f c9 20 |........|.:..... |
|00001640| 22 53 70 65 65 64 22 20 | 3a 0d 07 26 20 74 69 6d |"Speed" |:..& tim|
|00001650| 65 5f 73 68 61 72 65 25 | 3d bb 28 24 73 70 65 65 |e_share%|=.($spee|
|00001660| 64 5f 69 6e 64 69 72 25 | 29 0d 07 30 27 e7 20 74 |d_indir%|)..0'. t|
|00001670| 69 6d 65 5f 73 68 61 72 | 65 25 20 3c 20 31 20 8c |ime_shar|e% < 1 .|
|00001680| 20 74 69 6d 65 5f 73 68 | 61 72 65 25 20 3d 20 31 | time_sh|are% = 1|
|00001690| 0d 07 3a 2b e7 20 74 69 | 6d 65 5f 73 68 61 72 65 |..:+. ti|me_share|
|000016a0| 25 20 3e 20 31 35 30 20 | 8c 20 74 69 6d 65 5f 73 |% > 150 |. time_s|
|000016b0| 68 61 72 65 25 20 3d 20 | 31 35 30 0d 07 44 23 24 |hare% = |150..D#$|
|000016c0| 73 70 65 65 64 5f 69 6e | 64 69 72 25 20 3d 20 c3 |speed_in|dir% = .|
|000016d0| 28 74 69 6d 65 5f 73 68 | 61 72 65 25 29 20 0d 07 |(time_sh|are%) ..|
|000016e0| 4e 05 cd 0d 07 58 05 3a | 0d 07 62 6b c9 20 22 53 |N....X.:|..bk. "S|
|000016f0| 61 76 65 20 43 6f 64 65 | 22 20 3a 73 61 76 65 5f |ave Code|" :save_|
|00001700| 63 6f 64 65 5f 74 6f 5f | 66 69 6c 65 25 20 3d 20 |code_to_|file% = |
|00001710| ac 20 73 61 76 65 5f 63 | 6f 64 65 5f 74 6f 5f 66 |. save_c|ode_to_f|
|00001720| 69 6c 65 25 3a 69 63 62 | 61 72 6d 65 6e 75 24 3d |ile%:icb|armenu$=|
|00001730| a4 74 6f 67 67 6c 65 74 | 69 63 6b 28 69 63 62 61 |.togglet|ick(icba|
|00001740| 72 6d 65 6e 75 24 2c 22 | 53 61 76 65 20 43 6f 64 |rmenu$,"|Save Cod|
|00001750| 65 22 29 0d 07 6c 05 3a | 0d 07 76 15 c9 20 22 53 |e")..l.:|..v.. "S|
|00001760| 69 6e 67 6c 65 20 54 61 | 73 6b 22 20 3a 0d 07 80 |ingle Ta|sk" :...|
|00001770| 7d e7 20 ac 20 66 69 6e | 69 73 68 65 64 5f 67 61 |}. . fin|ished_ga|
|00001780| 6d 65 25 20 8c 20 f2 73 | 69 6e 67 6c 65 74 61 73 |me% . .s|ingletas|
|00001790| 6b 5f 63 6f 72 65 77 61 | 72 20 8b 20 73 69 6e 67 |k_corewa|r . sing|
|000017a0| 6c 65 5f 74 61 73 6b 25 | 20 3d 20 ac 20 73 69 6e |le_task%| = . sin|
|000017b0| 67 6c 65 5f 74 61 73 6b | 25 3a 69 63 62 61 72 6d |gle_task|%:icbarm|
|000017c0| 65 6e 75 24 3d a4 74 6f | 67 67 6c 65 74 69 63 6b |enu$=.to|ggletick|
|000017d0| 28 69 63 62 61 72 6d 65 | 6e 75 24 2c 22 53 69 6e |(icbarme|nu$,"Sin|
|000017e0| 67 6c 65 20 54 61 73 6b | 22 29 0d 07 8a 05 3a 0d |gle Task|")....:.|
|000017f0| 07 94 05 cb 0d 07 9e 0f | f2 67 65 74 70 6f 69 6e |........|.getpoin|
|00001800| 74 65 72 0d 07 a8 59 e7 | 20 28 62 25 20 80 20 31 |ter...Y.| (b% . 1|
|00001810| 29 3d 31 20 80 20 6d 65 | 6e 75 62 75 66 25 21 30 |)=1 . me|nubuf%!0|
|00001820| 3d 31 20 8c 20 f2 64 6f | 6d 65 6e 75 28 6d 65 6e |=1 . .do|menu(men|
|00001830| 75 62 75 66 25 21 30 2c | 6d 65 6e 75 62 75 66 25 |ubuf%!0,|menubuf%|
|00001840| 2c 69 63 62 61 72 6d 65 | 6e 75 24 2c 70 72 6f 67 |,icbarme|nu$,prog|
|00001850| 5f 74 69 74 6c 65 24 2c | 30 2c 30 29 0d 07 b2 5a |_title$,|0,0)...Z|
|00001860| e7 20 28 62 25 20 80 20 | 31 29 3d 31 20 80 20 6d |. (b% . |1)=1 . m|
|00001870| 65 6e 75 62 75 66 25 21 | 30 3d 32 20 8c 20 f2 64 |enubuf%!|0=2 . .d|
|00001880| 6f 6d 65 6e 75 28 6d 65 | 6e 75 62 75 66 25 21 30 |omenu(me|nubuf%!0|
|00001890| 2c 6d 65 6e 75 62 75 66 | 25 2c 73 63 72 65 65 6e |,menubuf|%,screen|
|000018a0| 6d 65 6e 75 24 2c 70 72 | 6f 67 5f 74 69 74 6c 65 |menu$,pr|og_title|
|000018b0| 24 2c 30 2c 30 29 0d 07 | bc 05 e1 0d 07 c6 05 3a |$,0,0)..|.......:|
|000018c0| 0d 07 d0 10 dd 20 f2 70 | 72 6f 67 5f 69 6e 69 74 |..... .p|rog_init|
|000018d0| 0d 07 da 25 ea 20 68 61 | 6e 64 6c 65 25 2c 6c 65 |...%. ha|ndle%,le|
|000018e0| 6e 25 2c 66 69 72 73 74 | 73 70 72 69 74 65 25 2c |n%,first|sprite%,|
|000018f0| 70 31 2c 70 32 0d 07 e4 | 05 3a 0d 07 ee 16 73 63 |p1,p2...|.:....sc|
|00001900| 72 65 65 6e 5f 77 69 64 | 74 68 25 3d 31 30 33 32 |reen_wid|th%=1032|
|00001910| 0d 07 f8 16 73 63 72 65 | 65 6e 5f 68 65 69 67 68 |....scre|en_heigh|
|00001920| 74 25 3d 35 30 34 0d 08 | 02 12 73 63 72 65 65 6e |t%=504..|..screen|
|00001930| 5f 6d 6f 64 65 25 3d 31 | 0d 08 0c 14 de 20 73 63 |_mode%=1|..... sc|
|00001940| 72 65 65 6e 5f 70 61 6c | 25 20 33 32 0d 08 16 1e |reen_pal|% 32....|
|00001950| 77 69 64 74 68 5f 70 69 | 78 25 3d 73 63 72 65 65 |width_pi|x%=scree|
|00001960| 6e 5f 77 69 64 74 68 25 | 2f 32 0d 08 20 20 68 65 |n_width%|/2..  he|
|00001970| 69 67 68 74 5f 70 69 78 | 25 3d 73 63 72 65 65 6e |ight_pix|%=screen|
|00001980| 5f 68 65 69 67 68 74 25 | 2f 34 0d 08 2a 05 3a 0d |_height%|/4..*.:.|
|00001990| 08 34 40 68 61 6e 64 6c | 65 25 3d 8e 20 28 61 70 |.4@handl|e%=. (ap|
|000019a0| 70 5f 70 61 74 68 24 2b | 22 2e 53 70 72 69 74 65 |p_path$+|".Sprite|
|000019b0| 73 22 29 3a 6c 65 6e 25 | 3d a2 23 68 61 6e 64 6c |s"):len%|=.#handl|
|000019c0| 65 25 2b 31 36 3a d9 23 | 68 61 6e 64 6c 65 25 0d |e%+16:.#|handle%.|
|000019d0| 08 3e 29 6c 65 6e 25 2b | 3d 28 77 69 64 74 68 5f |.>)len%+|=(width_|
|000019e0| 70 69 78 25 2a 68 65 69 | 67 68 74 5f 70 69 78 25 |pix%*hei|ght_pix%|
|000019f0| 2f 34 29 2b 31 30 32 34 | 0d 08 48 13 de 20 73 70 |/4)+1024|..H.. sp|
|00001a00| 72 69 74 65 73 25 20 6c | 65 6e 25 0d 08 52 20 21 |rites% l|en%..R !|
|00001a10| 73 70 72 69 74 65 73 25 | 3d 6c 65 6e 25 3a 73 70 |sprites%|=len%:sp|
|00001a20| 72 69 74 65 73 25 21 38 | 3d 31 32 0d 08 5c 22 c8 |rites%!8|=12..\".|
|00001a30| 99 20 22 4f 53 5f 53 70 | 72 69 74 65 4f 70 22 2c |. "OS_Sp|riteOp",|
|00001a40| 26 31 30 39 2c 73 70 72 | 69 74 65 73 25 0d 08 66 |&109,spr|ites%..f|
|00001a50| 37 c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |7.. "OS_|SpriteOp|
|00001a60| 22 2c 26 31 30 41 2c 73 | 70 72 69 74 65 73 25 2c |",&10A,s|prites%,|
|00001a70| 61 70 70 5f 70 61 74 68 | 24 2b 22 2e 53 70 72 69 |app_path|$+".Spri|
|00001a80| 74 65 73 22 0d 08 70 05 | 3a 0d 08 7a 54 c8 99 20 |tes"..p.|:..zT.. |
|00001a90| 22 4f 53 5f 53 70 72 69 | 74 65 4f 70 22 2c 26 31 |"OS_Spri|teOp",&1|
|00001aa0| 30 30 2b 31 35 2c 73 70 | 72 69 74 65 73 25 2c 22 |00+15,sp|rites%,"|
|00001ab0| 73 63 72 65 65 6e 22 2c | 31 2c 77 69 64 74 68 5f |screen",|1,width_|
|00001ac0| 70 69 78 25 2c 68 65 69 | 67 68 74 5f 70 69 78 25 |pix%,hei|ght_pix%|
|00001ad0| 2c 73 63 72 65 65 6e 5f | 6d 6f 64 65 25 0d 08 84 |,screen_|mode%...|
|00001ae0| 23 66 69 72 73 74 73 70 | 72 25 3d 73 70 72 69 74 |#firstsp|r%=sprit|
|00001af0| 65 73 25 2b 28 73 70 72 | 69 74 65 73 25 21 38 29 |es%+(spr|ites%!8)|
|00001b00| 0d 08 8e 2d e7 20 66 69 | 72 73 74 73 70 72 25 2b |...-. fi|rstspr%+|
|00001b10| 28 66 69 72 73 74 73 70 | 72 25 21 33 32 29 3d 66 |(firstsp|r%!32)=f|
|00001b20| 69 72 73 74 73 70 72 25 | 2b 34 34 20 8c 0d 08 98 |irstspr%|+44 ....|
|00001b30| 11 73 63 72 65 65 6e 5f | 70 61 6c 25 3d 30 0d 08 |.screen_|pal%=0..|
|00001b40| a2 05 cc 0d 08 ac 20 e3 | 20 6c 25 3d 34 34 20 b8 |...... .| l%=44 .|
|00001b50| 20 28 66 69 72 73 74 73 | 70 72 25 21 33 32 29 20 | (firsts|pr%!32) |
|00001b60| 88 20 38 0d 08 b6 28 73 | 63 72 65 65 6e 5f 70 61 |. 8...(s|creen_pa|
|00001b70| 6c 25 21 28 28 6c 25 2d | 34 34 29 2f 32 29 3d 66 |l%!((l%-|44)/2)=f|
|00001b80| 69 72 73 74 73 70 72 25 | 21 6c 25 0d 08 c0 05 ed |irstspr%|!l%.....|
|00001b90| 0d 08 ca 05 cd 0d 08 d4 | 05 3a 0d 08 de 2b de 20 |........|.:...+. |
|00001ba0| 6c 6f 61 64 65 72 5f 70 | 6c 25 28 31 29 2c 73 63 |loader_p|l%(1),sc|
|00001bb0| 72 5f 70 6c 72 25 28 31 | 29 2c 73 63 72 5f 73 70 |r_plr%(1|),scr_sp|
|00001bc0| 6c 25 28 31 29 0d 08 e8 | 05 3a 0d 08 f2 32 c8 99 |l%(1)...|.:...2..|
|00001bd0| 20 22 57 69 6d 70 5f 4f | 70 65 6e 54 65 6d 70 6c | "Wimp_O|penTempl|
|00001be0| 61 74 65 22 2c 2c 61 70 | 70 5f 70 61 74 68 24 2b |ate",,ap|p_path$+|
|00001bf0| 22 2e 54 65 6d 70 6c 61 | 74 65 73 22 0d 08 fc 10 |".Templa|tes"....|
|00001c00| 74 65 6d 70 25 3d 69 6e | 64 69 72 25 0d 09 06 1e |temp%=in|dir%....|
|00001c10| 69 6e 64 69 72 65 6e 64 | 25 3d 69 6e 64 69 72 25 |indirend|%=indir%|
|00001c20| 2b 69 6e 64 69 72 6c 65 | 6e 25 0d 09 10 44 c8 99 |+indirle|n%...D..|
|00001c30| 20 22 57 69 6d 70 5f 4c | 6f 61 64 54 65 6d 70 6c | "Wimp_L|oadTempl|
|00001c40| 61 74 65 22 2c 2c 71 25 | 2c 74 65 6d 70 25 2c 69 |ate",,q%|,temp%,i|
|00001c50| 6e 64 69 72 65 6e 64 25 | 2c 2d 31 2c 22 69 6e 66 |ndirend%|,-1,"inf|
|00001c60| 6f 22 2c 30 20 b8 20 2c | 2c 74 65 6d 70 25 0d 09 |o",0 . ,|,temp%..|
|00001c70| 1a 12 71 25 21 36 34 3d | 73 70 72 69 74 65 73 25 |..q%!64=|sprites%|
|00001c80| 0d 09 24 26 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..$&.. "|Wimp_Cre|
|00001c90| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 20 b8 |ateWindo|w",,q% .|
|00001ca0| 20 69 6e 66 6f 25 0d 09 | 2e 23 71 25 21 30 3d 69 | info%..|.#q%!0=i|
|00001cb0| 6e 66 6f 25 3a 71 25 21 | 34 3d 34 3a c8 99 20 26 |nfo%:q%!|4=4:.. &|
|00001cc0| 34 30 30 43 45 2c 2c 71 | 25 0d 09 38 1a 24 28 21 |400CE,,q|%..8.$(!|
|00001cd0| 28 71 25 2b 32 38 29 29 | 3d 70 72 6f 67 5f 64 61 |(q%+28))|=prog_da|
|00001ce0| 74 65 24 0d 09 42 05 3a | 0d 09 4c 46 c8 99 20 22 |te$..B.:|..LF.. "|
|00001cf0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00001d00| 65 22 2c 2c 71 25 2c 74 | 65 6d 70 25 2c 69 6e 64 |e",,q%,t|emp%,ind|
|00001d10| 69 72 65 6e 64 25 2c 2d | 31 2c 22 73 63 72 65 65 |irend%,-|1,"scree|
|00001d20| 6e 22 2c 30 20 b8 20 2c | 2c 74 65 6d 70 25 0d 09 |n",0 . ,|,temp%..|
|00001d30| 56 12 71 25 21 36 34 3d | 73 70 72 69 74 65 73 25 |V.q%!64=|sprites%|
|00001d40| 0d 09 60 28 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..`(.. "|Wimp_Cre|
|00001d50| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 20 b8 |ateWindo|w",,q% .|
|00001d60| 20 73 63 72 65 65 6e 25 | 0d 09 6a 25 71 25 21 30 | screen%|..j%q%!0|
|00001d70| 3d 73 63 72 65 65 6e 25 | 3a 71 25 21 34 3d 33 3a |=screen%|:q%!4=3:|
|00001d80| c8 99 20 26 34 30 30 43 | 45 2c 2c 71 25 0d 09 74 |.. &400C|E,,q%..t|
|00001d90| 15 73 63 72 5f 70 6c 72 | 25 28 30 29 3d 71 25 21 |.scr_plr|%(0)=q%!|
|00001da0| 32 38 0d 09 7e 25 71 25 | 21 30 3d 73 63 72 65 65 |28..~%q%|!0=scree|
|00001db0| 6e 25 3a 71 25 21 34 3d | 35 3a c8 99 20 26 34 30 |n%:q%!4=|5:.. &40|
|00001dc0| 30 43 45 2c 2c 71 25 0d | 09 88 15 73 63 72 5f 73 |0CE,,q%.|...scr_s|
|00001dd0| 70 6c 25 28 30 29 3d 71 | 25 21 32 38 0d 09 92 25 |pl%(0)=q|%!28...%|
|00001de0| 71 25 21 30 3d 73 63 72 | 65 65 6e 25 3a 71 25 21 |q%!0=scr|een%:q%!|
|00001df0| 34 3d 34 3a c8 99 20 26 | 34 30 30 43 45 2c 2c 71 |4=4:.. &|400CE,,q|
|00001e00| 25 0d 09 9c 15 73 63 72 | 5f 70 6c 72 25 28 31 29 |%....scr|_plr%(1)|
|00001e10| 3d 71 25 21 32 38 0d 09 | a6 25 71 25 21 30 3d 73 |=q%!28..|.%q%!0=s|
|00001e20| 63 72 65 65 6e 25 3a 71 | 25 21 34 3d 36 3a c8 99 |creen%:q|%!4=6:..|
|00001e30| 20 26 34 30 30 43 45 2c | 2c 71 25 0d 09 b0 15 73 | &400CE,|,q%....s|
|00001e40| 63 72 5f 73 70 6c 25 28 | 31 29 3d 71 25 21 32 38 |cr_spl%(|1)=q%!28|
|00001e50| 0d 09 ba 25 71 25 21 30 | 3d 73 63 72 65 65 6e 25 |...%q%!0|=screen%|
|00001e60| 3a 71 25 21 34 3d 37 3a | c8 99 20 26 34 30 30 43 |:q%!4=7:|.. &400C|
|00001e70| 45 2c 2c 71 25 0d 09 c4 | 11 62 61 6e 6e 65 72 25 |E,,q%...|.banner%|
|00001e80| 3d 71 25 21 32 38 0d 09 | ce 05 3a 0d 09 d8 46 c8 |=q%!28..|..:...F.|
|00001e90| 99 20 22 57 69 6d 70 5f | 4c 6f 61 64 54 65 6d 70 |. "Wimp_|LoadTemp|
|00001ea0| 6c 61 74 65 22 2c 2c 71 | 25 2c 74 65 6d 70 25 2c |late",,q|%,temp%,|
|00001eb0| 69 6e 64 69 72 65 6e 64 | 25 2c 2d 31 2c 22 6c 6f |indirend|%,-1,"lo|
|00001ec0| 61 64 65 72 22 2c 30 20 | b8 20 2c 2c 74 65 6d 70 |ader",0 |. ,,temp|
|00001ed0| 25 0d 09 e2 12 71 25 21 | 36 34 3d 73 70 72 69 74 |%....q%!|64=sprit|
|00001ee0| 65 73 25 0d 09 ec 28 c8 | 99 20 22 57 69 6d 70 5f |es%...(.|. "Wimp_|
|00001ef0| 43 72 65 61 74 65 57 69 | 6e 64 6f 77 22 2c 2c 71 |CreateWi|ndow",,q|
|00001f00| 25 20 b8 20 6c 6f 61 64 | 65 72 25 0d 09 f6 25 71 |% . load|er%...%q|
|00001f10| 25 21 30 3d 6c 6f 61 64 | 65 72 25 3a 71 25 21 34 |%!0=load|er%:q%!4|
|00001f20| 3d 30 3a c8 99 20 26 34 | 30 30 43 45 2c 2c 71 25 |=0:.. &4|00CE,,q%|
|00001f30| 0d 0a 00 17 6c 6f 61 64 | 65 72 5f 70 6c 25 28 30 |....load|er_pl%(0|
|00001f40| 29 3d 71 25 21 32 38 0d | 0a 0a 25 71 25 21 30 3d |)=q%!28.|..%q%!0=|
|00001f50| 6c 6f 61 64 65 72 25 3a | 71 25 21 34 3d 31 3a c8 |loader%:|q%!4=1:.|
|00001f60| 99 20 26 34 30 30 43 45 | 2c 2c 71 25 0d 0a 14 17 |. &400CE|,,q%....|
|00001f70| 6c 6f 61 64 65 72 5f 70 | 6c 25 28 31 29 3d 71 25 |loader_p|l%(1)=q%|
|00001f80| 21 32 38 0d 0a 1e 05 3a | 0d 0a 28 46 c8 99 20 22 |!28....:|..(F.. "|
|00001f90| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00001fa0| 65 22 2c 2c 71 25 2c 74 | 65 6d 70 25 2c 69 6e 64 |e",,q%,t|emp%,ind|
|00001fb0| 69 72 65 6e 64 25 2c 2d | 31 2c 22 65 72 72 6f 72 |irend%,-|1,"error|
|00001fc0| 73 22 2c 30 20 b8 20 2c | 2c 74 65 6d 70 25 0d 0a |s",0 . ,|,temp%..|
|00001fd0| 32 12 71 25 21 36 34 3d | 73 70 72 69 74 65 73 25 |2.q%!64=|sprites%|
|00001fe0| 0d 0a 3c 2b c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |..<+.. "|Wimp_Cre|
|00001ff0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 71 25 20 b8 |ateWindo|w",,q% .|
|00002000| 20 65 72 72 6f 72 5f 77 | 69 6e 25 0d 0a 46 05 3a | error_w|in%..F.:|
|00002010| 0d 0a 50 44 c8 99 20 22 | 57 69 6d 70 5f 4c 6f 61 |..PD.. "|Wimp_Loa|
|00002020| 64 54 65 6d 70 6c 61 74 | 65 22 2c 2c 71 25 2c 74 |dTemplat|e",,q%,t|
|00002030| 65 6d 70 25 2c 69 6e 64 | 69 72 65 6e 64 25 2c 2d |emp%,ind|irend%,-|
|00002040| 31 2c 22 73 61 76 65 22 | 2c 30 20 b8 20 2c 2c 74 |1,"save"|,0 . ,,t|
|00002050| 65 6d 70 25 0d 0a 5a 12 | 71 25 21 36 34 3d 73 70 |emp%..Z.|q%!64=sp|
|00002060| 72 69 74 65 73 25 0d 0a | 64 2a c8 99 20 22 57 69 |rites%..|d*.. "Wi|
|00002070| 6d 70 5f 43 72 65 61 74 | 65 57 69 6e 64 6f 77 22 |mp_Creat|eWindow"|
|00002080| 2c 2c 71 25 20 b8 20 73 | 61 76 65 5f 77 69 6e 25 |,,q% . s|ave_win%|
|00002090| 0d 0a 6e 27 71 25 21 30 | 3d 73 61 76 65 5f 77 69 |..n'q%!0|=save_wi|
|000020a0| 6e 25 3a 71 25 21 34 3d | 30 3a c8 99 20 26 34 30 |n%:q%!4=|0:.. &40|
|000020b0| 30 43 45 2c 2c 71 25 0d | 0a 78 16 73 61 76 65 5f |0CE,,q%.|.x.save_|
|000020c0| 70 74 72 25 3d 21 28 71 | 25 2b 32 38 29 0d 0a 82 |ptr%=!(q|%+28)...|
|000020d0| 05 3a 0d 0a 8c 1b c8 99 | 20 22 57 69 6d 70 5f 43 |.:......| "Wimp_C|
|000020e0| 6c 6f 73 65 54 65 6d 70 | 6c 61 74 65 22 0d 0a 96 |loseTemp|late"...|
|000020f0| 05 3a 0d 0a a0 7b 69 63 | 62 61 72 6d 65 6e 75 24 |.:...{ic|barmenu$|
|00002100| 3d 22 3e 49 6e 66 6f 2e | 69 6e 66 6f 25 2c 53 74 |=">Info.|info%,St|
|00002110| 6f 70 2c 53 68 6f 77 20 | 53 63 72 65 65 6e 2c 7e |op,Show |Screen,~|
|00002120| 43 79 63 6c 65 73 2e 63 | 79 63 6c 65 73 6d 65 6e |Cycles.c|yclesmen|
|00002130| 75 24 2e 43 79 63 6c 65 | 73 2c 7e 53 70 65 65 64 |u$.Cycle|s,~Speed|
|00002140| 2e 73 70 65 65 64 6d 65 | 6e 75 24 2e 53 70 65 65 |.speedme|nu$.Spee|
|00002150| 64 2c 53 69 6e 67 6c 65 | 20 54 61 73 6b 2c 53 61 |d,Single| Task,Sa|
|00002160| 76 65 20 43 6f 64 65 2c | 51 75 69 74 22 0d 0a aa |ve Code,|Quit"...|
|00002170| 35 de 20 63 79 63 6c 65 | 73 5f 69 6e 64 69 72 25 |5. cycle|s_indir%|
|00002180| 20 31 31 2c 73 70 65 65 | 64 5f 69 6e 64 69 72 25 | 11,spee|d_indir%|
|00002190| 20 36 2c 6e 75 6d 62 65 | 72 5f 76 61 6c 69 64 25 | 6,numbe|r_valid%|
|000021a0| 20 36 0d 0a b4 5c 63 79 | 63 6c 65 73 6d 65 6e 75 | 6...\cy|clesmenu|
|000021b0| 24 3d 22 60 63 79 63 6c | 65 73 5f 69 6e 64 69 72 |$="`cycl|es_indir|
|000021c0| 25 2e 6e 75 6d 62 65 72 | 5f 76 61 6c 69 64 25 2e |%.number|_valid%.|
|000021d0| 31 30 22 3a 73 70 65 65 | 64 6d 65 6e 75 24 3d 22 |10":spee|dmenu$="|
|000021e0| 60 73 70 65 65 64 5f 69 | 6e 64 69 72 25 2e 6e 75 |`speed_i|ndir%.nu|
|000021f0| 6d 62 65 72 5f 76 61 6c | 69 64 25 2e 34 22 0d 0a |mber_val|id%.4"..|
|00002200| be 1c 24 6e 75 6d 62 65 | 72 5f 76 61 6c 69 64 25 |..$numbe|r_valid%|
|00002210| 3d 22 41 30 2d 39 22 2b | bd 30 0d 0a c8 1d 73 63 |="A0-9"+|.0....sc|
|00002220| 72 65 65 6e 6d 65 6e 75 | 24 3d 22 3a 50 61 75 73 |reenmenu|$=":Paus|
|00002230| 65 2c 53 74 6f 70 22 0d | 0a d2 2a 73 63 72 65 65 |e,Stop".|..*scree|
|00002240| 6e 6d 65 6e 75 24 3d a4 | 67 72 65 79 28 73 63 72 |nmenu$=.|grey(scr|
|00002250| 65 65 6e 6d 65 6e 75 24 | 2c 22 50 61 75 73 65 22 |eenmenu$|,"Pause"|
|00002260| 29 0d 0a dc 29 73 63 72 | 65 65 6e 6d 65 6e 75 24 |)...)scr|eenmenu$|
|00002270| 3d a4 67 72 65 79 28 73 | 63 72 65 65 6e 6d 65 6e |=.grey(s|creenmen|
|00002280| 75 24 2c 22 53 74 6f 70 | 22 29 0d 0a e6 28 69 63 |u$,"Stop|")...(ic|
|00002290| 62 61 72 6d 65 6e 75 24 | 20 3d a4 67 72 65 79 28 |barmenu$| =.grey(|
|000022a0| 69 63 62 61 72 6d 65 6e | 75 24 2c 22 53 74 6f 70 |icbarmen|u$,"Stop|
|000022b0| 22 29 0d 0a f0 05 3a 0d | 0a fa 16 6d 61 78 5f 70 |")....:.|...max_p|
|000022c0| 72 6f 67 5f 73 69 7a 65 | 25 3d 38 30 30 0d 0b 04 |rog_size|%=800...|
|000022d0| 20 de 20 70 72 6f 67 5f | 63 6f 64 65 25 28 31 29 | . prog_|code%(1)|
|000022e0| 2c 70 72 6f 67 5f 6c 65 | 6e 25 28 31 29 0d 0b 0e |,prog_le|n%(1)...|
|000022f0| 29 de 20 70 31 20 6d 61 | 78 5f 70 72 6f 67 5f 73 |). p1 ma|x_prog_s|
|00002300| 69 7a 65 25 2c 70 32 20 | 6d 61 78 5f 70 72 6f 67 |ize%,p2 |max_prog|
|00002310| 5f 73 69 7a 65 25 0d 0b | 18 25 70 72 6f 67 5f 63 |_size%..|.%prog_c|
|00002320| 6f 64 65 25 28 30 29 3d | 70 31 3a 70 72 6f 67 5f |ode%(0)=|p1:prog_|
|00002330| 63 6f 64 65 25 28 31 29 | 3d 70 32 0d 0b 22 05 3a |code%(1)|=p2..".:|
|00002340| 0d 0b 2c 11 f2 69 6e 69 | 74 5f 63 6f 72 65 77 61 |..,..ini|t_corewa|
|00002350| 72 0d 0b 36 13 f2 69 6e | 69 74 5f 61 73 73 65 6d |r..6..in|it_assem|
|00002360| 62 6c 65 72 0d 0b 40 10 | f2 67 65 74 6d 6f 64 65 |bler..@.|.getmode|
|00002370| 69 6e 66 6f 0d 0b 4a 08 | 3a 20 20 20 0d 0b 54 14 |info..J.|:   ..T.|
|00002380| 66 69 6e 69 73 68 65 64 | 5f 67 61 6d 65 25 3d b9 |finished|_game%=.|
|00002390| 0d 0b 5e 0d 70 61 75 73 | 65 64 25 3d a3 0d 0b 68 |..^.paus|ed%=...h|
|000023a0| 05 3a 0d 0b 72 12 6c 6f | 61 64 65 72 5f 6e 65 78 |.:..r.lo|ader_nex|
|000023b0| 74 25 3d 30 0d 0b 7c 1d | 24 6c 6f 61 64 65 72 5f |t%=0..|.|$loader_|
|000023c0| 70 6c 25 28 30 29 3d 22 | 50 6c 61 79 65 72 20 31 |pl%(0)="|Player 1|
|000023d0| 22 0d 0b 86 1d 24 6c 6f | 61 64 65 72 5f 70 6c 25 |"....$lo|ader_pl%|
|000023e0| 28 31 29 3d 22 50 6c 61 | 79 65 72 20 32 22 0d 0b |(1)="Pla|yer 2"..|
|000023f0| 90 05 3a 0d 0b 9a 2b 24 | 62 61 6e 6e 65 72 25 3d |..:...+$|banner%=|
|00002400| 22 28 43 29 20 45 6d 6d | 65 74 20 53 70 69 65 72 |"(C) Emm|et Spier|
|00002410| 20 31 39 38 38 2d 31 39 | 39 31 22 2b bd 30 0d 0b | 1988-19|91"+.0..|
|00002420| a4 1f 24 73 63 72 5f 70 | 6c 72 25 28 30 29 3d 24 |..$scr_p|lr%(0)=$|
|00002430| 6c 6f 61 64 65 72 5f 70 | 6c 25 28 30 29 0d 0b ae |loader_p|l%(0)...|
|00002440| 1f 24 73 63 72 5f 70 6c | 72 25 28 31 29 3d 24 6c |.$scr_pl|r%(1)=$l|
|00002450| 6f 61 64 65 72 5f 70 6c | 25 28 31 29 0d 0b b8 14 |oader_pl|%(1)....|
|00002460| 24 73 63 72 5f 73 70 6c | 25 28 30 29 3d 22 30 22 |$scr_spl|%(0)="0"|
|00002470| 0d 0b c2 14 24 73 63 72 | 5f 73 70 6c 25 28 31 29 |....$scr|_spl%(1)|
|00002480| 3d 22 30 22 0d 0b cc 10 | 73 63 72 65 65 6e 5f 75 |="0"....|screen_u|
|00002490| 70 25 3d a3 0d 0b d6 05 | 3a 0d 0b e0 05 e1 0d 0b |p%=.....|:.......|
|000024a0| ea 05 3a 0d 0b f4 12 dd | 20 f2 73 79 73 74 65 6d |..:.....| .system|
|000024b0| 5f 76 61 72 73 0d 0b fe | 17 77 62 63 6f 6c 20 3d |_vars...|.wbcol =|
|000024c0| 26 31 3a 74 62 63 6f 6c | 20 3d 26 32 0d 0c 08 17 |&1:tbcol| =&2....|
|000024d0| 73 63 6f 20 20 20 3d 26 | 33 3a 73 63 69 20 20 20 |sco   =&|3:sci   |
|000024e0| 3d 26 44 0d 0c 12 17 74 | 62 63 6f 6c 32 3d 26 43 |=&D....t|bcol2=&C|
|000024f0| 3a 6d 62 63 6f 6c 20 3d | 26 30 0d 0c 1c 17 77 66 |:mbcol =|&0....wf|
|00002500| 63 6f 6c 20 3d 26 37 3a | 74 66 63 6f 6c 20 3d 26 |col =&7:|tfcol =&|
|00002510| 37 0d 0c 26 0d 6d 79 72 | 65 66 25 3d 2d 31 0d 0c |7..&.myr|ef%=-1..|
|00002520| 30 05 e1 0d 0c 3a 05 3a | 0d 0c 44 34 dd 20 f2 64 |0....:.:|..D4. .d|
|00002530| 6f 6d 65 6e 75 28 68 61 | 6e 64 6c 65 25 2c 6d 65 |omenu(ha|ndle%,me|
|00002540| 6e 75 70 74 72 25 2c 6d | 65 6e 75 24 2c 6d 65 6e |nuptr%,m|enu$,men|
|00002550| 75 74 69 74 6c 65 24 2c | 78 2c 79 29 0d 0c 4e 12 |utitle$,|x,y)..N.|
|00002560| ea 20 64 75 6d 6d 79 25 | 2c 6e 65 78 74 25 0d 0c |. dummy%|,next%..|
|00002570| 58 14 6e 65 78 74 25 3d | 6d 65 6e 75 70 74 72 25 |X.next%=|menuptr%|
|00002580| 2b 34 0d 0c 62 16 6d 65 | 6e 75 70 74 72 25 21 30 |+4..b.me|nuptr%!0|
|00002590| 3d 68 61 6e 64 6c 65 25 | 0d 0c 6c 27 64 75 6d 6d |=handle%|..l'dumm|
|000025a0| 79 25 3d a4 63 5f 6d 28 | 6e 65 78 74 25 2c 6d 65 |y%=.c_m(|next%,me|
|000025b0| 6e 75 24 2c 6d 65 6e 75 | 74 69 74 6c 65 24 29 0d |nu$,menu|title$).|
|000025c0| 0c 76 24 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |.v$.. "W|imp_Crea|
|000025d0| 74 65 4d 65 6e 75 22 2c | 2c 64 75 6d 6d 79 25 2c |teMenu",|,dummy%,|
|000025e0| 78 2c 79 0d 0c 80 05 e1 | 0d 0c 8a 05 3a 0d 0c 94 |x,y.....|....:...|
|000025f0| 25 dd 20 a4 63 5f 6d 28 | 6d 65 6e 75 70 74 72 25 |%. .c_m(|menuptr%|
|00002600| 2c 6d 65 6e 75 24 2c 6d | 65 6e 75 74 69 74 6c 65 |,menu$,m|enutitle|
|00002610| 24 29 0d 0c 9e 18 ea 20 | 69 25 2c 63 61 6c 6c 25 |$)..... |i%,call%|
|00002620| 2c 69 74 65 6d 24 2c 77 | 2c 6c 0d 0c a8 12 63 61 |,item$,w|,l....ca|
|00002630| 6c 6c 25 3d 6d 65 6e 75 | 70 74 72 25 0d 0c b2 11 |ll%=menu|ptr%....|
|00002640| 77 3d a9 6d 65 6e 75 74 | 69 74 6c 65 24 0d 0c bc |w=.menut|itle$...|
|00002650| 0d 6e 65 78 74 25 2b 3d | 35 32 0d 0c c6 11 e3 20 |.next%+=|52..... |
|00002660| 69 25 3d 30 b8 a9 6d 65 | 6e 75 24 0d 0c d0 22 e7 |i%=0..me|nu$...".|
|00002670| 20 c1 6d 65 6e 75 24 2c | 69 25 2c 31 29 3d 22 2c | .menu$,|i%,1)=",|
|00002680| 22 20 8c 20 6e 65 78 74 | 25 2b 3d 32 34 0d 0c da |" . next|%+=24...|
|00002690| 05 ed 0d 0c e4 08 69 25 | 3d 30 0d 0c ee 12 6d 65 |......i%|=0....me|
|000026a0| 6e 75 70 74 72 25 21 32 | 30 3d 34 30 0d 0c f8 18 |nuptr%!2|0=40....|
|000026b0| 24 6d 65 6e 75 70 74 72 | 25 3d 6d 65 6e 75 74 69 |$menuptr|%=menuti|
|000026c0| 74 6c 65 24 0d 0d 02 47 | 6d 65 6e 75 70 74 72 25 |tle$...G|menuptr%|
|000026d0| 3f 31 32 3d 74 66 63 6f | 6c 3a 6d 65 6e 75 70 74 |?12=tfco|l:menupt|
|000026e0| 72 25 3f 31 33 3d 32 3a | 6d 65 6e 75 70 74 72 25 |r%?13=2:|menuptr%|
|000026f0| 3f 31 34 3d 77 66 63 6f | 6c 3a 6d 65 6e 75 70 74 |?14=wfco|l:menupt|
|00002700| 72 25 3f 31 35 3d 6d 62 | 63 6f 6c 0d 0d 0c 11 6d |r%?15=mb|col....m|
|00002710| 65 6e 75 70 74 72 25 21 | 32 34 3d 30 0d 0d 16 10 |enuptr%!|24=0....|
|00002720| 6d 65 6e 75 70 74 72 25 | 2b 3d 32 38 0d 0d 20 05 |menuptr%|+=28.. .|
|00002730| f5 0d 0d 2a 1c 69 74 65 | 6d 24 3d a4 70 61 72 28 |...*.ite|m$=.par(|
|00002740| 6d 65 6e 75 24 2c 22 2c | 22 2c 69 25 29 0d 0d 34 |menu$,",|",i%)..4|
|00002750| 28 6d 65 6e 75 70 74 72 | 25 3d a4 6d 65 6e 75 69 |(menuptr|%=.menui|
|00002760| 74 65 6d 28 6d 65 6e 75 | 70 74 72 25 2c 69 74 65 |tem(menu|ptr%,ite|
|00002770| 6d 24 2c 6c 29 0d 0d 3e | 0f 77 3d a4 6d 61 78 28 |m$,l)..>|.w=.max(|
|00002780| 6c 2c 77 29 0d 0d 48 0e | fd 20 69 74 65 6d 24 3d |l,w)..H.|. item$=|
|00002790| 22 22 0d 0d 52 14 63 61 | 6c 6c 25 21 31 36 3d 31 |""..R.ca|ll%!16=1|
|000027a0| 36 2a 77 2b 31 32 0d 0d | 5c 23 6d 65 6e 75 70 74 |6*w+12..|\#menupt|
|000027b0| 72 25 21 2d 32 34 3d 28 | 6d 65 6e 75 70 74 72 25 |r%!-24=(|menuptr%|
|000027c0| 21 2d 32 34 29 84 26 38 | 30 0d 0d 66 0a 3d 63 61 |!-24).&8|0..f.=ca|
|000027d0| 6c 6c 25 0d 0d 70 05 3a | 0d 0d 7a 1f dd 20 a4 6d |ll%..p.:|..z.. .m|
|000027e0| 65 6e 75 69 74 65 6d 28 | 70 74 72 25 2c 74 65 78 |enuitem(|ptr%,tex|
|000027f0| 74 24 2c f8 20 6c 29 0d | 0d 84 14 e7 20 74 65 78 |t$,. l).|.... tex|
|00002800| 74 24 3d 22 22 20 3d 70 | 74 72 25 0d 0d 8e 0f ea |t$="" =p|tr%.....|
|00002810| 20 61 2c 74 24 2c 74 65 | 78 74 0d 0d 98 0a 74 65 | a,t$,te|xt....te|
|00002820| 78 74 3d b9 0d 0d a2 07 | 61 3d 30 0d 0d ac 0b 21 |xt=.....|a=0....!|
|00002830| 70 74 72 25 3d 30 0d 0d | b6 14 70 74 72 25 21 38 |ptr%=0..|..ptr%!8|
|00002840| 3d 26 30 37 30 30 30 30 | 32 31 0d 0d c0 0d 70 74 |=&070000|21....pt|
|00002850| 72 25 21 34 3d 2d 31 0d | 0d ca 15 e7 20 c0 74 65 |r%!4=-1.|.... .te|
|00002860| 78 74 24 2c 31 29 3d 22 | 60 22 20 8c 0d 0d d4 13 |xt$,1)="|`" .....|
|00002870| 74 65 78 74 24 3d c1 74 | 65 78 74 24 2c 32 29 0d |text$=.t|ext$,2).|
|00002880| 0d de 14 70 74 72 25 21 | 38 3d 26 30 37 30 30 30 |...ptr%!|8=&07000|
|00002890| 31 32 31 0d 0d e8 13 21 | 70 74 72 25 3d 21 70 74 |121....!|ptr%=!pt|
|000028a0| 72 25 20 84 20 34 0d 0d | f2 18 74 24 3d a4 70 61 |r% . 4..|..t$=.pa|
|000028b0| 72 28 74 65 78 74 24 2c | 22 2e 22 2c 61 29 0d 0d |r(text$,|".",a)..|
|000028c0| fc 11 70 74 72 25 21 31 | 32 3d a0 28 74 24 29 0d |..ptr%!1|2=.(t$).|
|000028d0| 0e 06 18 74 24 3d a4 70 | 61 72 28 74 65 78 74 24 |...t$=.p|ar(text$|
|000028e0| 2c 22 2e 22 2c 61 29 0d | 0e 10 11 70 74 72 25 21 |,".",a).|...ptr%!|
|000028f0| 31 36 3d a0 28 74 24 29 | 0d 0e 1a 18 74 24 3d a4 |16=.(t$)|....t$=.|
|00002900| 70 61 72 28 74 65 78 74 | 24 2c 22 2e 22 2c 61 29 |par(text|$,".",a)|
|00002910| 0d 0e 24 11 70 74 72 25 | 21 32 30 3d a0 28 74 24 |..$.ptr%|!20=.(t$|
|00002920| 29 0d 0e 2e 0a 74 65 78 | 74 3d a3 0d 0e 38 0c 74 |)....tex|t=...8.t|
|00002930| 65 78 74 24 3d 22 22 0d | 0e 42 05 cd 0d 0e 4c 15 |ext$="".|.B....L.|
|00002940| e7 20 c0 74 65 78 74 24 | 2c 31 29 3d 22 3e 22 20 |. .text$|,1)=">" |
|00002950| 8c 0d 0e 56 13 74 65 78 | 74 24 3d c1 74 65 78 74 |...V.tex|t$=.text|
|00002960| 24 2c 32 29 0d 0e 60 18 | 74 24 3d a4 70 61 72 28 |$,2)..`.|t$=.par(|
|00002970| 74 65 78 74 24 2c 22 2e | 22 2c 61 29 0d 0e 6a 1f |text$,".|",a)..j.|
|00002980| 70 74 72 25 21 34 3d a0 | 28 a4 70 61 72 28 74 65 |ptr%!4=.|(.par(te|
|00002990| 78 74 24 2c 22 2e 22 2c | 61 29 29 0d 0e 74 0c 74 |xt$,".",|a))..t.t|
|000029a0| 65 78 74 24 3d 74 24 0d | 0e 7e 05 cd 0d 0e 88 15 |ext$=t$.|.~......|
|000029b0| e7 20 c0 74 65 78 74 24 | 2c 31 29 3d 22 7e 22 20 |. .text$|,1)="~" |
|000029c0| 8c 0d 0e 92 13 74 65 78 | 74 24 3d c1 74 65 78 74 |.....tex|t$=.text|
|000029d0| 24 2c 32 29 0d 0e 9c 18 | 74 24 3d a4 70 61 72 28 |$,2)....|t$=.par(|
|000029e0| 74 65 78 74 24 2c 22 2e | 22 2c 61 29 0d 0e a6 50 |text$,".|",a)...P|
|000029f0| 70 74 72 25 21 34 3d a0 | 28 22 46 4e 63 5f 6d 28 |ptr%!4=.|("FNc_m(|
|00002a00| 6e 65 78 74 25 2c 22 2b | a4 70 61 72 28 74 65 78 |next%,"+|.par(tex|
|00002a10| 74 24 2c 22 2e 22 2c 61 | 29 2b 22 2c 22 2b bd 33 |t$,".",a|)+","+.3|
|00002a20| 34 2b a4 70 61 72 28 74 | 65 78 74 24 2c 22 2e 22 |4+.par(t|ext$,"."|
|00002a30| 2c 61 29 2b bd 33 34 2b | 22 29 22 29 0d 0e b0 0c |,a)+.34+|")")....|
|00002a40| 74 65 78 74 24 3d 74 24 | 0d 0e ba 05 cd 0d 0e c4 |text$=t$|........|
|00002a50| 32 e7 20 c0 74 65 78 74 | 24 2c 31 29 3d 22 3a 22 |2. .text|$,1)=":"|
|00002a60| 21 70 74 72 25 3d 21 70 | 74 72 25 20 84 20 32 3a |!ptr%=!p|tr% . 2:|
|00002a70| 74 65 78 74 24 3d c1 74 | 65 78 74 24 2c 32 29 0d |text$=.t|ext$,2).|
|00002a80| 0e ce 37 e7 20 c0 74 65 | 78 74 24 2c 31 29 3d 22 |..7. .te|xt$,1)="|
|00002a90| 3c 22 70 74 72 25 21 38 | 3d 70 74 72 25 21 38 20 |<"ptr%!8|=ptr%!8 |
|00002aa0| 84 20 32 5e 32 32 3a 74 | 65 78 74 24 3d c1 74 65 |. 2^22:t|ext$=.te|
|00002ab0| 78 74 24 2c 32 29 0d 0e | d8 36 e7 20 c0 74 65 78 |xt$,2)..|.6. .tex|
|00002ac0| 74 24 2c 31 29 3d 22 40 | 22 21 70 74 72 25 3d 21 |t$,1)="@|"!ptr%=!|
|00002ad0| 6d 65 6e 75 70 74 72 25 | 20 84 20 31 3a 74 65 78 |menuptr%| . 1:tex|
|00002ae0| 74 24 3d c1 74 65 78 74 | 24 2c 32 29 0d 0e e2 1d |t$=.text|$,2)....|
|00002af0| e7 20 74 65 78 74 20 8c | 20 24 28 70 74 72 25 2b |. text .| $(ptr%+|
|00002b00| 31 32 29 3d 74 65 78 74 | 24 0d 0e ec 0c 6c 3d a9 |12)=text|$....l=.|
|00002b10| 74 65 78 74 24 0d 0e f6 | 0c 3d 70 74 72 25 2b 32 |text$...|.=ptr%+2|
|00002b20| 34 0d 0f 00 05 3a 0d 0f | 0a 16 dd 20 a4 70 61 72 |4....:..|... .par|
|00002b30| 28 61 24 2c 73 24 2c f8 | 20 69 25 29 0d 0f 14 09 |(a$,s$,.| i%)....|
|00002b40| ea 20 69 31 25 0d 0f 1e | 1e 69 31 25 3d 69 25 2b |. i1%...|.i1%=i%+|
|00002b50| 31 3a 69 25 3d a7 61 24 | 2b 73 24 2c 73 24 2c 69 |1:i%=.a$|+s$,s$,i|
|00002b60| 31 25 29 0d 0f 28 14 3d | c1 61 24 2c 69 31 25 2c |1%)..(.=|.a$,i1%,|
|00002b70| 69 25 2d 69 31 25 29 0d | 0f 32 05 3a 0d 0f 3c 1c |i%-i1%).|.2.:..<.|
|00002b80| dd 20 a4 63 6f 75 6e 74 | 69 74 65 6d 73 28 73 72 |. .count|items(sr|
|00002b90| 63 24 2c 74 67 74 24 29 | 0d 0f 46 19 ea 20 61 2c |c$,tgt$)|..F.. a,|
|00002ba0| 63 6f 75 6e 74 3a 63 6f | 75 6e 74 3d 30 3a 61 3d |count:co|unt=0:a=|
|00002bb0| 30 0d 0f 50 29 c8 95 20 | a4 70 61 72 28 73 72 63 |0..P).. |.par(src|
|00002bc0| 24 2c 74 67 74 24 2c 61 | 29 20 3c 3e 20 22 22 3a |$,tgt$,a|) <> "":|
|00002bd0| 63 6f 75 6e 74 2b 3d 31 | 3a ce 0d 0f 5a 0a 3d 63 |count+=1|:...Z.=c|
|00002be0| 6f 75 6e 74 0d 0f 64 05 | 3a 0d 0f 6e 11 dd 20 a4 |ount..d.|:..n.. .|
|00002bf0| 63 68 6b 68 65 78 28 61 | 24 29 0d 0f 78 2e e7 20 |chkhex(a|$)..x.. |
|00002c00| a7 22 30 31 32 33 34 35 | 36 37 38 39 41 42 43 44 |."012345|6789ABCD|
|00002c10| 45 46 61 62 63 64 65 66 | 22 2c c1 61 24 2c 31 2c |EFabcdef|",.a$,1,|
|00002c20| 31 29 29 3d 30 20 3d a3 | 0d 0f 82 2e e7 20 a7 22 |1))=0 =.|..... ."|
|00002c30| 30 31 32 33 34 35 36 37 | 38 39 41 42 43 44 45 46 |01234567|89ABCDEF|
|00002c40| 61 62 63 64 65 66 22 2c | c1 61 24 2c 32 2c 31 29 |abcdef",|.a$,2,1)|
|00002c50| 29 3d 30 20 3d a3 0d 0f | 8c 2e e7 20 a7 22 30 31 |)=0 =...|... ."01|
|00002c60| 32 33 34 35 36 37 38 39 | 41 42 43 44 45 46 61 62 |23456789|ABCDEFab|
|00002c70| 63 64 65 66 22 2c c1 61 | 24 2c 33 2c 31 29 29 3d |cdef",.a|$,3,1))=|
|00002c80| 30 20 3d a3 0d 0f 96 06 | 3d b9 0d 0f a0 05 3a 0d |0 =.....|=.....:.|
|00002c90| 0f aa 12 dd 20 a4 74 69 | 63 6b 28 6d 24 2c 6e 24 |.... .ti|ck(m$,n$|
|00002ca0| 29 0d 0f b4 19 3d a4 6d | 65 6e 75 5f 73 65 74 28 |)....=.m|enu_set(|
|00002cb0| 6d 24 2c 6e 24 2c 22 40 | 22 29 0d 0f be 05 3a 0d |m$,n$,"@|")....:.|
|00002cc0| 0f c8 14 dd 20 a4 75 6e | 74 69 63 6b 28 6d 24 2c |.... .un|tick(m$,|
|00002cd0| 6e 24 29 0d 0f d2 1b 3d | a4 6d 65 6e 75 5f 75 6e |n$)....=|.menu_un|
|00002ce0| 73 65 74 28 6d 24 2c 6e | 24 2c 22 40 22 29 0d 0f |set(m$,n|$,"@")..|
|00002cf0| dc 05 3a 0d 0f e6 18 dd | 20 a4 74 6f 67 67 6c 65 |..:.....| .toggle|
|00002d00| 74 69 63 6b 28 6d 24 2c | 6e 24 29 0d 0f f0 1f 3d |tick(m$,|n$)....=|
|00002d10| a4 6d 65 6e 75 5f 74 6f | 67 67 6c 65 73 65 74 28 |.menu_to|ggleset(|
|00002d20| 6d 24 2c 6e 24 2c 22 40 | 22 29 0d 0f fa 05 3a 0d |m$,n$,"@|")....:.|
|00002d30| 10 04 16 dd 20 a4 6f 6e | 6c 79 74 69 63 6b 28 6d |.... .on|lytick(m|
|00002d40| 24 2c 6e 24 29 0d 10 0e | 1d 3d a4 6d 65 6e 75 5f |$,n$)...|.=.menu_|
|00002d50| 6f 6e 6c 79 73 65 74 28 | 6d 24 2c 6e 24 2c 22 40 |onlyset(|m$,n$,"@|
|00002d60| 22 29 0d 10 18 05 3a 0d | 10 22 12 dd 20 a4 67 72 |")....:.|.".. .gr|
|00002d70| 65 79 28 6d 24 2c 6e 24 | 29 0d 10 2c 19 3d a4 6d |ey(m$,n$|)..,.=.m|
|00002d80| 65 6e 75 5f 73 65 74 28 | 6d 24 2c 6e 24 2c 22 3c |enu_set(|m$,n$,"<|
|00002d90| 22 29 0d 10 36 05 3a 0d | 10 40 14 dd 20 a4 75 6e |")..6.:.|.@.. .un|
|00002da0| 67 72 65 79 28 6d 24 2c | 6e 24 29 0d 10 4a 1b 3d |grey(m$,|n$)..J.=|
|00002db0| a4 6d 65 6e 75 5f 75 6e | 73 65 74 28 6d 24 2c 6e |.menu_un|set(m$,n|
|00002dc0| 24 2c 22 3c 22 29 0d 10 | 54 05 3a 0d 10 5e 19 dd |$,"<")..|T.:..^..|
|00002dd0| 20 a4 6d 65 6e 75 5f 73 | 65 74 28 6d 24 2c 6e 24 | .menu_s|et(m$,n$|
|00002de0| 2c 74 24 29 0d 10 68 07 | ea 20 61 0d 10 72 15 e7 |,t$)..h.|. a..r..|
|00002df0| 20 a7 6d 24 2c 6e 24 29 | 3d 30 20 8c 20 3d 6d 24 | .m$,n$)|=0 . =m$|
|00002e00| 0d 10 7c 0d 61 3d a7 6d | 24 2c 6e 24 29 0d 10 86 |..|.a=.m|$,n$)...|
|00002e10| 1b e7 20 c1 6d 24 2c 61 | 2d 31 2c 31 29 20 3d 20 |.. .m$,a|-1,1) = |
|00002e20| 74 24 20 8c 20 3d 6d 24 | 0d 10 90 17 3d c0 6d 24 |t$ . =m$|....=.m$|
|00002e30| 2c 61 2d 31 29 2b 74 24 | 2b c1 6d 24 2c 61 29 0d |,a-1)+t$|+.m$,a).|
|00002e40| 10 9a 05 3a 0d 10 a4 1b | dd 20 a4 6d 65 6e 75 5f |...:....|. .menu_|
|00002e50| 75 6e 73 65 74 28 6d 24 | 2c 6e 24 2c 74 24 29 0d |unset(m$|,n$,t$).|
|00002e60| 10 ae 07 ea 20 61 0d 10 | b8 15 e7 20 a7 6d 24 2c |.... a..|... .m$,|
|00002e70| 6e 24 29 3d 30 20 8c 20 | 3d 6d 24 0d 10 c2 0d 61 |n$)=0 . |=m$....a|
|00002e80| 3d a7 6d 24 2c 6e 24 29 | 0d 10 cc 1c e7 20 c1 6d |=.m$,n$)|..... .m|
|00002e90| 24 2c 61 2d 31 2c 31 29 | 20 3c 3e 20 74 24 20 8c |$,a-1,1)| <> t$ .|
|00002ea0| 20 3d 6d 24 0d 10 d6 14 | 3d c0 6d 24 2c 61 2d 32 | =m$....|=.m$,a-2|
|00002eb0| 29 2b c1 6d 24 2c 61 29 | 0d 10 e0 05 3a 0d 10 ea |)+.m$,a)|....:...|
|00002ec0| 1f dd 20 a4 6d 65 6e 75 | 5f 74 6f 67 67 6c 65 73 |.. .menu|_toggles|
|00002ed0| 65 74 28 6d 24 2c 6e 24 | 2c 74 24 29 0d 10 f4 0a |et(m$,n$|,t$)....|
|00002ee0| ea 20 61 2c 61 24 0d 10 | fe 15 e7 20 a7 6d 24 2c |. a,a$..|... .m$,|
|00002ef0| 6e 24 29 3d 30 20 8c 20 | 3d 6d 24 0d 11 08 0d 61 |n$)=0 . |=m$....a|
|00002f00| 3d a7 6d 24 2c 6e 24 29 | 0d 11 12 17 e7 20 c1 6d |=.m$,n$)|..... .m|
|00002f10| 24 2c 61 2d 31 2c 31 29 | 20 3d 20 74 24 20 8c 0d |$,a-1,1)| = t$ ..|
|00002f20| 11 1c 18 61 24 20 3d 20 | c0 6d 24 2c 61 2d 32 29 |...a$ = |.m$,a-2)|
|00002f30| 2b c1 6d 24 2c 61 29 0d | 11 26 05 cc 0d 11 30 1b |+.m$,a).|.&....0.|
|00002f40| 61 24 20 3d 20 c0 6d 24 | 2c 61 2d 31 29 2b 74 24 |a$ = .m$|,a-1)+t$|
|00002f50| 2b c1 6d 24 2c 61 29 0d | 11 3a 05 cd 0d 11 44 07 |+.m$,a).|.:....D.|
|00002f60| 3d 61 24 0d 11 4e 05 3a | 0d 11 58 1d dd 20 a4 6d |=a$..N.:|..X.. .m|
|00002f70| 65 6e 75 5f 6f 6e 6c 79 | 73 65 74 28 6d 24 2c 6e |enu_only|set(m$,n|
|00002f80| 24 2c 74 24 29 0d 11 62 | 0a ea 20 61 2c 62 24 0d |$,t$)..b|.. a,b$.|
|00002f90| 11 6c 15 e7 20 a7 6d 24 | 2c 6e 24 29 3d 30 20 8c |.l.. .m$|,n$)=0 .|
|00002fa0| 20 3d 6d 24 0d 11 76 07 | 61 3d 30 0d 11 80 15 62 | =m$..v.|a=0....b|
|00002fb0| 24 3d a4 70 61 72 28 6d | 24 2c 22 2c 22 2c 61 29 |$=.par(m|$,",",a)|
|00002fc0| 0d 11 8a 0d c8 95 20 62 | 24 3c 3e 22 22 0d 11 94 |...... b|$<>""...|
|00002fd0| 1b e7 20 c0 62 24 2c 31 | 29 3d 74 24 20 8c 20 62 |.. .b$,1|)=t$ . b|
|00002fe0| 24 3d c1 62 24 2c 32 29 | 0d 11 9e 1c 6d 24 3d a4 |$=.b$,2)|....m$=.|
|00002ff0| 6d 65 6e 75 5f 75 6e 73 | 65 74 28 6d 24 2c 62 24 |menu_uns|et(m$,b$|
|00003000| 2c 74 24 29 0d 11 a8 15 | 62 24 3d a4 70 61 72 28 |,t$)....|b$=.par(|
|00003010| 6d 24 2c 22 2c 22 2c 61 | 29 0d 11 b2 05 ce 0d 11 |m$,",",a|).......|
|00003020| bc 18 3d a4 6d 65 6e 75 | 5f 73 65 74 28 6d 24 2c |..=.menu|_set(m$,|
|00003030| 6e 24 2c 74 24 29 0d 11 | c6 05 3a 0d 11 d0 1a dd |n$,t$)..|..:.....|
|00003040| 20 a4 6d 65 6e 75 5f 73 | 77 61 70 28 6d 24 2c 6e | .menu_s|wap(m$,n|
|00003050| 24 2c 74 24 29 0d 11 da | 07 ea 20 61 0d 11 e4 15 |$,t$)...|.. a....|
|00003060| e7 20 a7 6d 24 2c 6e 24 | 29 3d 30 20 8c 20 3d 6d |. .m$,n$|)=0 . =m|
|00003070| 24 0d 11 ee 0d 61 3d a7 | 6d 24 2c 6e 24 29 0d 11 |$....a=.|m$,n$)..|
|00003080| f8 1d 3d c0 6d 24 2c 61 | 2d 31 29 2b 74 24 2b c1 |..=.m$,a|-1)+t$+.|
|00003090| 6d 24 2c 61 2b a9 28 6e | 24 29 29 0d 12 02 05 3a |m$,a+.(n|$))....:|
|000030a0| 0d 12 0c 15 dd 20 f2 66 | 72 6f 6e 74 28 68 61 6e |..... .f|ront(han|
|000030b0| 64 6c 65 25 29 0d 12 16 | 11 e7 68 61 6e 64 6c 65 |dle%)...|..handle|
|000030c0| 25 3d 2d 31 8c e1 0d 12 | 20 12 f2 67 65 74 77 28 |%=-1....| ..getw(|
|000030d0| 68 61 6e 64 6c 65 25 29 | 0d 12 2a 36 f2 6f 70 65 |handle%)|..*6.ope|
|000030e0| 6e 5f 77 69 6e 64 6f 77 | 28 68 61 6e 64 6c 65 25 |n_window|(handle%|
|000030f0| 2c 78 30 25 2c 79 30 25 | 2c 78 31 25 2c 79 31 25 |,x0%,y0%|,x1%,y1%|
|00003100| 2c 73 63 78 25 2c 73 63 | 79 25 2c 2d 31 29 0d 12 |,scx%,sc|y%,-1)..|
|00003110| 34 05 e1 0d 12 3e 05 3a | 0d 12 48 3e dd 20 f2 6f |4....>.:|..H>. .o|
|00003120| 70 65 6e 5f 77 69 6e 64 | 6f 77 28 68 61 6e 64 6c |pen_wind|ow(handl|
|00003130| 65 25 2c 78 30 25 2c 79 | 30 25 2c 78 31 25 2c 79 |e%,x0%,y|0%,x1%,y|
|00003140| 31 25 2c 73 63 78 25 2c | 73 63 79 25 2c 62 68 61 |1%,scx%,|scy%,bha|
|00003150| 6e 64 6c 65 25 29 0d 12 | 52 11 e7 68 61 6e 64 6c |ndle%)..|R..handl|
|00003160| 65 25 3d 2d 31 8c e1 0d | 12 5c 28 e7 20 68 61 6e |e%=-1...|.\(. han|
|00003170| 64 6c 65 25 20 3d 20 73 | 63 72 65 65 6e 25 20 8c |dle% = s|creen% .|
|00003180| 20 73 63 72 65 65 6e 5f | 75 70 25 20 3d 20 b9 0d | screen_|up% = ..|
|00003190| 12 66 1f 71 25 21 30 3d | 68 61 6e 64 6c 65 25 3a |.f.q%!0=|handle%:|
|000031a0| 71 25 21 32 38 3d 62 68 | 61 6e 64 6c 65 25 0d 12 |q%!28=bh|andle%..|
|000031b0| 70 29 71 25 21 34 3d 78 | 30 25 3a 71 25 21 38 3d |p)q%!4=x|0%:q%!8=|
|000031c0| 79 30 25 3a 71 25 21 31 | 32 3d 78 31 25 3a 71 25 |y0%:q%!1|2=x1%:q%|
|000031d0| 21 31 36 3d 79 31 25 0d | 12 7a 19 71 25 21 32 30 |!16=y1%.|.z.q%!20|
|000031e0| 3d 73 63 78 25 3a 71 25 | 21 32 34 3d 73 63 79 25 |=scx%:q%|!24=scy%|
|000031f0| 0d 12 84 1c c8 99 20 22 | 57 69 6d 70 5f 4f 70 65 |...... "|Wimp_Ope|
|00003200| 6e 57 69 6e 64 6f 77 22 | 2c 2c 71 25 0d 12 8e 05 |nWindow"|,,q%....|
|00003210| e1 0d 12 98 05 3a 0d 12 | a2 1c dd 20 f2 63 6c 6f |.....:..|... .clo|
|00003220| 73 65 5f 77 69 6e 64 6f | 77 28 68 61 6e 64 6c 65 |se_windo|w(handle|
|00003230| 25 29 0d 12 ac 0f 21 71 | 25 3d 68 61 6e 64 6c 65 |%)....!q|%=handle|
|00003240| 25 0d 12 b6 28 e7 20 68 | 61 6e 64 6c 65 25 20 3d |%...(. h|andle% =|
|00003250| 20 73 63 72 65 65 6e 25 | 20 8c 20 73 63 72 65 65 | screen%| . scree|
|00003260| 6e 5f 75 70 25 20 3d 20 | a3 0d 12 c0 32 e7 20 68 |n_up% = |....2. h|
|00003270| 61 6e 64 6c 65 25 20 3d | 20 73 61 76 65 5f 77 69 |andle% =| save_wi|
|00003280| 6e 25 20 8c 20 61 73 73 | 65 6d 62 6c 65 72 5f 6f |n% . ass|embler_o|
|00003290| 70 65 72 61 74 69 76 65 | 25 3d a3 0d 12 ca 1d c8 |perative|%=......|
|000032a0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 57 69 6e |. "Wimp_|CloseWin|
|000032b0| 64 6f 77 22 2c 2c 71 25 | 0d 12 d4 05 e1 0d 12 de |dow",,q%|........|
|000032c0| 05 3a 0d 12 e8 14 dd 20 | f2 67 65 74 77 28 68 61 |.:..... |.getw(ha|
|000032d0| 6e 64 6c 65 25 29 0d 12 | f2 2b 21 71 25 3d 68 61 |ndle%)..|.+!q%=ha|
|000032e0| 6e 64 6c 65 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |ndle%:..| "Wimp_G|
|000032f0| 65 74 57 69 6e 64 6f 77 | 49 6e 66 6f 22 2c 2c 71 |etWindow|Info",,q|
|00003300| 25 0d 12 fc 1f 78 30 25 | 3d 71 25 21 34 3a 79 30 |%....x0%|=q%!4:y0|
|00003310| 25 3d 71 25 21 38 3a 78 | 31 25 3d 71 25 21 31 32 |%=q%!8:x|1%=q%!12|
|00003320| 0d 13 06 23 79 31 25 3d | 71 25 21 31 36 3a 73 63 |...#y1%=|q%!16:sc|
|00003330| 78 25 3d 71 25 21 32 30 | 3a 73 63 79 25 3d 71 25 |x%=q%!20|:scy%=q%|
|00003340| 21 32 34 0d 13 10 1d 62 | 78 25 3d 78 30 25 2d 73 |!24....b|x%=x0%-s|
|00003350| 63 78 25 3a 62 79 25 3d | 79 31 25 2d 73 63 79 25 |cx%:by%=|y1%-scy%|
|00003360| 0d 13 1a 1f 62 68 61 6e | 64 6c 65 25 3d 71 25 21 |....bhan|dle%=q%!|
|00003370| 32 38 3a 66 6c 61 67 73 | 25 3d 71 25 21 33 32 0d |28:flags|%=q%!32.|
|00003380| 13 24 05 e1 0d 13 2e 05 | 3a 0d 13 38 11 dd 20 f2 |.$......|:..8.. .|
|00003390| 67 65 74 70 6f 69 6e 74 | 65 72 0d 13 42 20 c8 99 |getpoint|er..B ..|
|000033a0| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|000033b0| 72 49 6e 66 6f 22 2c 2c | 71 25 0d 13 4c 48 6d 6f |rInfo",,|q%..LHmo|
|000033c0| 75 73 65 78 25 3d 21 71 | 25 3a 6d 6f 75 73 65 79 |usex%=!q|%:mousey|
|000033d0| 25 3d 71 25 21 34 3a 62 | 25 3d 71 25 21 38 3a 68 |%=q%!4:b|%=q%!8:h|
|000033e0| 61 6e 64 6c 65 25 3d 71 | 25 21 31 32 3a 69 63 6f |andle%=q|%!12:ico|
|000033f0| 6e 25 3d 71 25 21 31 36 | 3a 6f 62 25 3d 71 25 21 |n%=q%!16|:ob%=q%!|
|00003400| 32 30 0d 13 56 05 e1 0d | 13 60 05 3a 0d 13 6a 16 |20..V...|.`.:..j.|
|00003410| dd 20 f2 65 72 72 6f 72 | 62 6f 78 28 71 75 69 74 |. .error|box(quit|
|00003420| 25 29 0d 13 74 0d ea 20 | 72 65 73 75 6c 74 25 0d |%)..t.. |result%.|
|00003430| 13 7e 31 c8 99 20 22 57 | 69 6d 70 5f 44 72 61 67 |.~1.. "W|imp_Drag|
|00003440| 42 6f 78 22 2c 2c 2d 31 | 3a c8 99 20 22 48 6f 75 |Box",,-1|:.. "Hou|
|00003450| 72 67 6c 61 73 73 5f 53 | 6d 61 73 68 22 3a ef 36 |rglass_S|mash":.6|
|00003460| 0d 13 88 73 21 71 25 3d | 9f 3a 24 28 71 25 2b 34 |...s!q%=|.:$(q%+4|
|00003470| 29 3d 22 2a 2a 2a 2a 2a | 20 44 69 61 67 6e 6f 73 |)="*****| Diagnos|
|00003480| 74 69 63 20 52 65 70 6f | 72 74 20 2a 2a 2a 2a 2a |tic Repo|rt *****|
|00003490| 20 22 2b f6 24 2b 22 20 | 28 22 2b c3 9e 2b 22 29 | "+.$+" |("+..+")|
|000034a0| 22 2b 22 20 4f 6b 20 74 | 6f 20 63 6f 6e 74 69 6e |"+" Ok t|o contin|
|000034b0| 75 65 2c 20 43 61 6e 63 | 65 6c 20 74 6f 20 6b 69 |ue, Canc|el to ki|
|000034c0| 6c 6c 20 22 2b 70 72 6f | 67 5f 74 69 74 6c 65 24 |ll "+pro|g_title$|
|000034d0| 2b bd 30 0d 13 92 21 e7 | 20 71 75 69 74 25 20 8c |+.0...!.| quit% .|
|000034e0| 20 71 75 69 74 25 3d 32 | 20 8b 20 71 75 69 74 25 | quit%=2| . quit%|
|000034f0| 20 3d 20 33 0d 13 9c 3c | c8 99 20 22 57 69 6d 70 | = 3...<|.. "Wimp|
|00003500| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 71 25 |_ReportE|rror",q%|
|00003510| 2c 71 75 69 74 25 2c 70 | 72 6f 67 5f 74 69 74 6c |,quit%,p|rog_titl|
|00003520| 65 24 2b bd 30 20 b8 20 | 2c 72 65 73 75 6c 74 25 |e$+.0 . |,result%|
|00003530| 0d 13 a6 19 e7 20 72 65 | 73 75 6c 74 25 3d 32 20 |..... re|sult%=2 |
|00003540| 8c 20 f2 66 69 6e 69 73 | 68 0d 13 b0 05 e1 0d 13 |. .finis|h.......|
|00003550| ba 05 3a 0d 13 c4 1b dd | 20 a4 71 75 65 72 79 28 |..:.....| .query(|
|00003560| 71 75 65 72 79 24 2c 74 | 69 74 6c 65 24 29 0d 13 |query$,t|itle$)..|
|00003570| ce 0c ea 20 72 65 73 75 | 6c 74 0d 13 d8 28 6d 65 |... resu|lt...(me|
|00003580| 6e 75 62 75 66 25 21 30 | 3d 30 3a 24 28 6d 65 6e |nubuf%!0|=0:$(men|
|00003590| 75 62 75 66 25 2b 34 29 | 3d 71 75 65 72 79 24 2b |ubuf%+4)|=query$+|
|000035a0| bd 30 0d 13 e2 39 c8 99 | 20 22 57 69 6d 70 5f 52 |.0...9..| "Wimp_R|
|000035b0| 65 70 6f 72 74 45 72 72 | 6f 72 22 2c 6d 65 6e 75 |eportErr|or",menu|
|000035c0| 62 75 66 25 2c 31 39 2c | 74 69 74 6c 65 24 2b bd |buf%,19,|title$+.|
|000035d0| 30 20 b8 20 2c 72 65 73 | 75 6c 74 0d 13 ec 16 e7 |0 . ,res|ult.....|
|000035e0| 20 72 65 73 75 6c 74 20 | 3d 20 31 20 8c 20 3d 20 | result |= 1 . = |
|000035f0| b9 0d 13 f6 07 3d 20 a3 | 0d 14 00 05 3a 0d 14 0a |.....= .|....:...|
|00003600| 12 dd 20 f2 77 61 72 6e | 69 6e 67 28 61 24 29 0d |.. .warn|ing(a$).|
|00003610| 14 14 17 21 71 25 3d 9f | 3a 24 28 71 25 2b 34 29 |...!q%=.|:$(q%+4)|
|00003620| 3d 61 24 2b bd 30 0d 14 | 1e 2d c8 99 20 22 57 69 |=a$+.0..|.-.. "Wi|
|00003630| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|00003640| 71 25 2c 31 2b 31 36 2c | 70 72 6f 67 5f 74 69 74 |q%,1+16,|prog_tit|
|00003650| 6c 65 24 0d 14 28 05 e1 | 0d 14 32 05 3a 0d 14 3c |le$..(..|..2.:..<|
|00003660| 0d dd 20 f2 66 69 6e 69 | 73 68 0d 14 46 19 c8 99 |.. .fini|sh..F...|
|00003670| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 44 6f 77 6e | "Wimp_C|loseDown|
|00003680| 22 3a e0 0d 14 50 05 e1 | 0d 14 5a 05 3a 0d 14 64 |":...P..|..Z.:..d|
|00003690| 29 dd 20 a4 69 63 6f 6e | 62 61 72 28 73 70 6e 61 |). .icon|bar(spna|
|000036a0| 6d 65 24 2c 73 70 72 69 | 74 65 61 72 65 61 25 2c |me$,spri|tearea%,|
|000036b0| 74 65 78 74 25 29 0d 14 | 6e 09 ea 20 69 63 25 0d |text%)..|n.. ic%.|
|000036c0| 14 78 0a 21 71 25 3d 2d | 31 0d 14 82 10 e7 20 74 |.x.!q%=-|1..... t|
|000036d0| 65 78 74 25 3d 2d 31 20 | 8c 0d 14 8c 23 71 25 21 |ext%=-1 |....#q%!|
|000036e0| 34 3d 30 3a 71 25 21 38 | 3d 30 3a 71 25 21 31 32 |4=0:q%!8|=0:q%!12|
|000036f0| 3d 36 33 3a 71 25 21 31 | 36 3d 36 38 0d 14 96 0f |=63:q%!1|6=68....|
|00003700| 71 25 21 32 30 3d 26 32 | 31 30 32 0d 14 a0 33 de |q%!20=&2|102...3.|
|00003710| 20 69 63 6f 6e 62 61 72 | 5f 73 70 72 69 74 65 25 | iconbar|_sprite%|
|00003720| 20 31 33 3a 24 28 69 63 | 6f 6e 62 61 72 5f 73 70 | 13:$(ic|onbar_sp|
|00003730| 72 69 74 65 25 29 3d 73 | 70 6e 61 6d 65 24 0d 14 |rite%)=s|pname$..|
|00003740| aa 34 71 25 21 32 34 3d | 69 63 6f 6e 62 61 72 5f |.4q%!24=|iconbar_|
|00003750| 73 70 72 69 74 65 25 3a | 71 25 21 32 38 3d 73 70 |sprite%:|q%!28=sp|
|00003760| 72 69 74 65 61 72 65 61 | 25 3a 71 25 21 33 32 3d |ritearea|%:q%!32=|
|00003770| 31 33 0d 14 b4 22 c8 99 | 20 22 57 69 6d 70 5f 43 |13..."..| "Wimp_C|
|00003780| 72 65 61 74 65 49 63 6f | 6e 22 2c 2c 71 25 20 b8 |reateIco|n",,q% .|
|00003790| 20 69 63 25 0d 14 be 05 | cc 0d 14 c8 25 71 25 21 | ic%....|....%q%!|
|000037a0| 34 3d 30 3a 71 25 21 38 | 3d 2d 31 36 3a 71 25 21 |4=0:q%!8|=-16:q%!|
|000037b0| 31 32 3d 39 36 3a 71 25 | 21 31 36 3d 36 30 0d 14 |12=96:q%|!16=60..|
|000037c0| d2 13 71 25 21 32 30 3d | 26 31 37 30 31 32 31 30 |..q%!20=|&1701210|
|000037d0| 42 0d 14 dc 18 de 20 71 | 25 21 32 38 20 28 a9 73 |B..... q|%!28 (.s|
|000037e0| 70 6e 61 6d 65 24 2b 32 | 29 0d 14 e6 35 71 25 21 |pname$+2|)...5q%!|
|000037f0| 32 34 3d 74 65 78 74 25 | 3a 24 28 71 25 21 32 38 |24=text%|:$(q%!28|
|00003800| 29 3d 22 73 22 2b 73 70 | 6e 61 6d 65 24 3a 71 25 |)="s"+sp|name$:q%|
|00003810| 21 33 32 3d a9 20 28 24 | 74 65 78 74 25 29 0d 14 |!32=. ($|text%)..|
|00003820| f0 22 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.".. "Wi|mp_Creat|
|00003830| 65 49 63 6f 6e 22 2c 2c | 71 25 20 b8 20 69 63 25 |eIcon",,|q% . ic%|
|00003840| 0d 14 fa 05 cd 0d 15 04 | 08 3d 69 63 25 0d 15 0e |........|.=ic%...|
|00003850| 05 3a 0d 15 18 1e dd 20 | a4 6d 61 78 28 61 2c 62 |.:..... |.max(a,b|
|00003860| 29 3a e7 20 61 3e 62 20 | 3d 20 61 20 8b 20 3d 62 |):. a>b |= a . =b|
|00003870| 0d 15 22 1e dd 20 a4 6d | 69 6e 28 61 2c 62 29 3a |..".. .m|in(a,b):|
|00003880| e7 20 61 3c 62 20 3d 20 | 61 20 8b 20 3d 62 0d 15 |. a<b = |a . =b..|
|00003890| 2c 05 3a 0d 15 36 12 dd | 20 a4 6c 65 61 66 28 70 |,.:..6..| .leaf(p|
|000038a0| 61 74 68 24 29 0d 15 40 | 2e c8 95 20 a7 70 61 74 |ath$)..@|... .pat|
|000038b0| 68 24 2c 22 2e 22 29 3a | 70 61 74 68 24 3d c1 70 |h$,"."):|path$=.p|
|000038c0| 61 74 68 24 2c a7 70 61 | 74 68 24 2c 22 2e 22 29 |ath$,.pa|th$,".")|
|000038d0| 2b 31 29 0d 15 4a 05 ce | 0d 15 54 0a 3d 70 61 74 |+1)..J..|..T.=pat|
|000038e0| 68 24 0d 15 5e 05 3a 0d | 15 68 12 dd 20 a4 70 61 |h$..^.:.|.h.. .pa|
|000038f0| 74 68 28 70 61 74 68 24 | 29 0d 15 72 2e c8 95 20 |th(path$|)..r... |
|00003900| c2 70 61 74 68 24 2c 31 | 29 20 3c 3e 20 22 2e 22 |.path$,1|) <> "."|
|00003910| 20 70 61 74 68 24 3d c0 | 70 61 74 68 24 2c a9 70 | path$=.|path$,.p|
|00003920| 61 74 68 24 2d 31 29 0d | 15 7c 05 ce 0d 15 86 15 |ath$-1).|.|......|
|00003930| 3d c0 70 61 74 68 24 2c | a9 70 61 74 68 24 2d 31 |=.path$,|.path$-1|
|00003940| 29 0d 15 90 05 3a 0d 15 | 9a 17 dd 20 a4 6d 65 6d |)....:..|... .mem|
|00003950| 74 6f 73 74 72 28 70 74 | 72 2c 6d 6c 29 0d 15 a4 |tostr(pt|r,ml)...|
|00003960| 17 ea 20 66 24 2c 6d 61 | 78 3a 6d 61 78 3d 70 74 |.. f$,ma|x:max=pt|
|00003970| 72 2b 6d 6c 0d 15 ae 26 | c8 95 20 3f 70 74 72 20 |r+ml...&|.. ?ptr |
|00003980| 80 20 70 74 72 3c 6d 61 | 78 20 66 24 2b 3d bd 3f |. ptr<ma|x f$+=.?|
|00003990| 70 74 72 3a 70 74 72 2b | 3d 31 0d 15 b8 05 ce 0d |ptr:ptr+|=1......|
|000039a0| 15 c2 07 3d 66 24 0d 15 | cc 05 3a 0d 15 d6 15 dd |...=f$..|..:.....|
|000039b0| 20 a4 70 61 64 28 61 24 | 2c 73 70 61 63 65 73 29 | .pad(a$|,spaces)|
|000039c0| 0d 15 e0 1d 3d c0 61 24 | 2b c4 73 70 61 63 65 73 |....=.a$|+.spaces|
|000039d0| 2c 22 20 22 29 2c 73 70 | 61 63 65 73 29 0d 15 ea |," "),sp|aces)...|
|000039e0| 05 3a 0d 15 f4 10 dd 20 | a4 73 74 72 69 70 28 61 |.:..... |.strip(a|
|000039f0| 24 29 0d 15 fe 1d c8 95 | 20 c2 61 24 2c 31 29 3d |$)......| .a$,1)=|
|00003a00| 22 20 22 20 84 20 c2 61 | 24 2c 31 29 3d bd 30 0d |" " . .a|$,1)=.0.|
|00003a10| 16 08 15 61 24 3d c0 61 | 24 2c a9 20 61 24 20 2d |...a$=.a|$,. a$ -|
|00003a20| 20 31 20 29 0d 16 12 05 | ce 0d 16 1c 11 c8 95 20 | 1 )....|....... |
|00003a30| c0 61 24 2c 31 29 3d 22 | 20 22 0d 16 26 15 61 24 |.a$,1)="| "..&.a$|
|00003a40| 3d c2 61 24 2c a9 20 61 | 24 20 2d 20 31 20 29 0d |=.a$,. a|$ - 1 ).|
|00003a50| 16 30 05 ce 0d 16 3a 07 | 3d 61 24 0d 16 44 05 3a |.0....:.|=a$..D.:|
|00003a60| 0d 16 4e 1c dd 20 a4 66 | 69 6c 74 65 72 28 61 24 |..N.. .f|ilter(a$|
|00003a70| 2c 6c 6f 77 25 2c 68 69 | 67 68 25 29 0d 16 58 0f |,low%,hi|gh%)..X.|
|00003a80| ea 20 63 6f 75 6e 74 25 | 2c 62 24 0d 16 62 15 e3 |. count%|,b$..b..|
|00003a90| 20 63 6f 75 6e 74 25 3d | 31 20 b8 20 a9 20 61 24 | count%=|1 . . a$|
|00003aa0| 0d 16 6c 36 e7 20 97 20 | c1 61 24 2c 63 6f 75 6e |..l6. . |.a$,coun|
|00003ab0| 74 25 2c 31 29 3e 3d 6c | 6f 77 25 20 80 20 97 20 |t%,1)>=l|ow% . . |
|00003ac0| c1 61 24 2c 63 6f 75 6e | 74 25 2c 31 29 3c 3d 68 |.a$,coun|t%,1)<=h|
|00003ad0| 69 67 68 25 20 8c 0d 16 | 76 15 62 24 2b 3d c1 61 |igh% ...|v.b$+=.a|
|00003ae0| 24 2c 63 6f 75 6e 74 25 | 2c 31 29 0d 16 80 05 cd |$,count%|,1).....|
|00003af0| 0d 16 8a 05 ed 0d 16 94 | 07 3d 62 24 0d 16 9e 05 |........|.=b$....|
|00003b00| 3a 0d 16 a8 1a dd 20 f2 | 73 65 74 75 70 64 72 61 |:..... .|setupdra|
|00003b10| 67 62 6f 78 28 77 25 2c | 69 25 29 0d 16 b2 0d ea |gbox(w%,|i%).....|
|00003b20| 20 77 65 78 2c 77 65 79 | 0d 16 bc 6a 71 25 21 30 | wex,wey|...jq%!0|
|00003b30| 3d 77 25 3a c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |=w%:.. "|Wimp_Get|
|00003b40| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 2c 71 25 |WindowSt|ate",,q%|
|00003b50| 3a 77 65 78 3d 71 25 21 | 34 2d 71 25 21 32 30 3a |:wex=q%!|4-q%!20:|
|00003b60| 77 65 79 3d 71 25 21 31 | 36 2d 71 25 21 32 34 3a |wey=q%!1|6-q%!24:|
|00003b70| 71 25 21 34 3d 69 25 3a | c8 99 20 22 57 69 6d 70 |q%!4=i%:|.. "Wimp|
|00003b80| 5f 47 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 2c |_GetIcon|State",,|
|00003b90| 71 25 0d 16 c6 5f 21 71 | 25 3d 77 25 3a 71 25 21 |q%..._!q|%=w%:q%!|
|00003ba0| 34 3d 35 3a 71 25 21 38 | 3d 71 25 21 38 2b 77 65 |4=5:q%!8|=q%!8+we|
|00003bb0| 78 3a 71 25 21 31 32 3d | 71 25 21 31 32 2b 77 65 |x:q%!12=|q%!12+we|
|00003bc0| 79 3a 71 25 21 31 36 3d | 71 25 21 31 36 2b 77 65 |y:q%!16=|q%!16+we|
|00003bd0| 78 3a 71 25 21 32 30 3d | 71 25 21 32 30 2b 77 65 |x:q%!20=|q%!20+we|
|00003be0| 79 3a 71 25 21 32 34 3d | 30 3a 71 25 21 32 38 3d |y:q%!24=|0:q%!28=|
|00003bf0| 30 0d 16 d0 39 71 25 21 | 33 32 3d 26 37 46 46 46 |0...9q%!|32=&7FFF|
|00003c00| 46 46 46 46 3a 71 25 21 | 33 36 3d 26 37 46 46 46 |FFFF:q%!|36=&7FFF|
|00003c10| 46 46 46 46 3a c8 99 20 | 22 57 69 6d 70 5f 44 72 |FFFF:.. |"Wimp_Dr|
|00003c20| 61 67 42 6f 78 22 2c 2c | 71 25 0d 16 da 0e 64 72 |agBox",,|q%....dr|
|00003c30| 61 67 62 6f 78 25 3d b9 | 0d 16 e4 05 e1 0d 16 ee |agbox%=.|........|
|00003c40| 05 3a 0d 16 f8 13 dd 20 | f2 64 61 74 61 73 61 76 |.:..... |.datasav|
|00003c50| 65 28 71 25 29 0d 17 02 | 10 ea 20 6e 65 77 25 2c |e(q%)...|.. new%,|
|00003c60| 73 69 7a 65 25 0d 17 0c | 2f 66 6e 61 6d 65 24 3d |size%...|/fname$=|
|00003c70| a4 66 69 6c 74 65 72 28 | a4 6d 65 6d 74 6f 73 74 |.filter(|.memtost|
|00003c80| 72 28 71 25 2b 34 34 2c | 31 30 30 29 2c 33 32 2c |r(q%+44,|100),32,|
|00003c90| 32 35 35 29 0d 17 16 16 | e7 20 71 25 21 34 3d 74 |255)....|. q%!4=t|
|00003ca0| 61 73 6b 69 64 25 20 8c | 20 e1 0d 17 20 12 e7 20 |askid% .| ... .. |
|00003cb0| 71 25 21 34 30 3d 26 46 | 46 46 20 8c 0d 17 2a 55 |q%!40=&F|FF ...*U|
|00003cc0| e7 20 ac 20 66 69 6e 69 | 73 68 65 64 5f 67 61 6d |. . fini|shed_gam|
|00003cd0| 65 25 20 8c 20 f2 77 61 | 72 6e 69 6e 67 28 22 43 |e% . .wa|rning("C|
|00003ce0| 61 6e 6e 6f 74 20 61 73 | 73 65 6d 62 6c 65 20 77 |annot as|semble w|
|00003cf0| 68 69 6c 65 20 70 6c 61 | 79 69 6e 67 20 43 6f 72 |hile pla|ying Cor|
|00003d00| 65 20 57 61 72 2c 20 73 | 6f 72 72 79 2e 22 29 3a |e War, s|orry."):|
|00003d10| e1 0d 17 34 91 e7 20 ac | 20 66 69 6e 69 73 68 65 |...4.. .| finishe|
|00003d20| 64 5f 61 73 73 65 6d 62 | 6c 79 25 20 8c 20 e7 20 |d_assemb|ly% . . |
|00003d30| ac 20 a4 71 75 65 72 79 | 28 22 43 75 72 72 65 6e |. .query|("Curren|
|00003d40| 74 6c 79 20 61 73 73 65 | 6d 62 6c 69 6e 67 20 22 |tly asse|mbling "|
|00003d50| 2b 6c 65 61 66 6e 61 6d | 65 24 2b 22 2c 20 61 72 |+leafnam|e$+", ar|
|00003d60| 65 20 79 6f 75 20 73 75 | 72 65 20 79 6f 75 20 77 |e you su|re you w|
|00003d70| 61 6e 74 20 74 6f 20 61 | 73 73 65 6d 62 6c 65 20 |ant to a|ssemble |
|00003d80| 22 2b a4 6c 65 61 66 28 | 66 6e 61 6d 65 24 29 2b |"+.leaf(|fname$)+|
|00003d90| 22 3f 22 2c 70 72 6f 67 | 5f 74 69 74 6c 65 24 29 |"?",prog|_title$)|
|00003da0| 20 e1 0d 17 3e 27 72 61 | 6d 6c 6f 61 64 5f 61 74 | ...>'ra|mload_at|
|00003db0| 74 65 6d 70 74 25 3d b9 | 3a 61 73 73 65 6d 62 6c |tempt%=.|:assembl|
|00003dc0| 79 5f 6c 6f 61 64 25 3d | b9 0d 17 48 1b 6c 65 61 |y_load%=|...H.lea|
|00003dd0| 66 6e 61 6d 65 24 3d a4 | 6c 65 61 66 28 66 6e 61 |fname$=.|leaf(fna|
|00003de0| 6d 65 24 29 0d 17 52 0f | 73 69 7a 65 25 3d 71 25 |me$)..R.|size%=q%|
|00003df0| 21 33 36 0d 17 5c 18 73 | 69 7a 65 25 3d 31 2e 35 |!36..\.s|ize%=1.5|
|00003e00| 2a 73 69 7a 65 25 2b 31 | 30 32 34 0d 17 66 33 c8 |*size%+1|024..f3.|
|00003e10| 99 20 22 57 69 6d 70 5f | 53 6c 6f 74 53 69 7a 65 |. "Wimp_|SlotSize|
|00003e20| 22 2c 28 73 74 61 72 74 | 73 6c 6f 74 25 2b 73 69 |",(start|slot%+si|
|00003e30| 7a 65 25 29 2c 2d 31 20 | b8 20 6e 65 77 25 0d 17 |ze%),-1 |. new%..|
|00003e40| 70 1f e7 20 28 6e 65 77 | 25 2d 73 74 61 72 74 73 |p.. (new|%-starts|
|00003e50| 6c 6f 74 25 29 3c 73 69 | 7a 65 25 20 8c 0d 17 7a |lot%)<si|ze% ...z|
|00003e60| 26 c8 99 20 22 57 69 6d | 70 5f 53 6c 6f 74 53 69 |&.. "Wim|p_SlotSi|
|00003e70| 7a 65 22 2c 63 75 72 72 | 65 6e 74 73 6c 6f 74 25 |ze",curr|entslot%|
|00003e80| 2c 2d 31 0d 17 84 61 f2 | 77 61 72 6e 69 6e 67 28 |,-1...a.|warning(|
|00003e90| 22 43 6f 72 65 20 57 61 | 72 20 6e 65 65 64 73 20 |"Core Wa|r needs |
|00003ea0| 22 2b c3 28 38 2a a8 28 | 31 2b 73 69 7a 65 25 2f |"+.(8*.(|1+size%/|
|00003eb0| 38 31 39 32 29 2b 22 6b | 20 74 6f 20 61 73 73 65 |8192)+"k| to asse|
|00003ec0| 6d 62 6c 65 20 74 68 65 | 20 66 69 6c 65 20 22 2b |mble the| file "+|
|00003ed0| a4 6c 65 61 66 28 66 6e | 61 6d 65 24 29 2b 22 2e |.leaf(fn|ame$)+".|
|00003ee0| 22 29 3a e1 0d 17 8e 05 | cd 0d 17 98 15 63 75 72 |"):.....|.....cur|
|00003ef0| 72 65 6e 74 73 6c 6f 74 | 25 3d 6e 65 77 25 0d 17 |rentslot|%=new%..|
|00003f00| a2 10 73 74 6f 72 65 25 | 3d 93 2b 32 35 36 0d 17 |..store%|=.+256..|
|00003f10| ac 2a 73 6f 75 72 63 65 | 5f 63 6f 64 65 25 3d 73 |.*source|_code%=s|
|00003f20| 74 6f 72 65 25 2b 6d 61 | 78 5f 70 72 6f 67 5f 73 |tore%+ma|x_prog_s|
|00003f30| 69 7a 65 25 2b 32 35 36 | 0d 17 b6 29 71 25 21 30 |ize%+256|...)q%!0|
|00003f40| 3d 36 30 3a 71 25 21 31 | 32 3d 71 25 21 38 3a 71 |=60:q%!1|2=q%!8:q|
|00003f50| 25 21 31 36 3d 36 3a f4 | 20 52 41 4d 66 65 74 63 |%!16=6:.| RAMfetc|
|00003f60| 68 0d 17 c0 2b 71 25 21 | 32 30 3d 73 6f 75 72 63 |h...+q%!|20=sourc|
|00003f70| 65 5f 63 6f 64 65 25 3a | 71 25 21 32 34 3d a8 28 |e_code%:|q%!24=.(|
|00003f80| 73 69 7a 65 25 2a 31 2e | 31 32 35 29 0d 17 ca 24 |size%*1.|125)...$|
|00003f90| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00003fa0| 73 61 67 65 22 2c 31 38 | 2c 71 25 2c 71 25 21 34 |sage",18|,q%,q%!4|
|00003fb0| 0d 17 d4 0f 6d 79 72 65 | 66 25 3d 71 25 21 38 0d |....myre|f%=q%!8.|
|00003fc0| 17 de 05 cd 0d 17 e8 2f | e7 20 71 25 21 34 30 20 |......./|. q%!40 |
|00003fd0| 3d 20 6f 62 6a 65 63 74 | 5f 66 69 6c 65 74 79 70 |= object|_filetyp|
|00003fe0| 65 25 20 84 20 71 25 21 | 34 30 20 3d 20 26 46 46 |e% . q%!|40 = &FF|
|00003ff0| 44 20 8c 0d 17 f2 27 72 | 61 6d 6c 6f 61 64 5f 61 |D ....'r|amload_a|
|00004000| 74 74 65 6d 70 74 25 3d | b9 3a 61 73 73 65 6d 62 |ttempt%=|.:assemb|
|00004010| 6c 79 5f 6c 6f 61 64 25 | 3d a3 0d 17 fc 39 6c 65 |ly_load%|=....9le|
|00004020| 61 66 6e 61 6d 65 24 3d | a4 6c 65 61 66 28 a4 66 |afname$=|.leaf(.f|
|00004030| 69 6c 74 65 72 28 a4 6d | 65 6d 74 6f 73 74 72 28 |ilter(.m|emtostr(|
|00004040| 71 25 2b 34 34 2c 31 30 | 30 29 2c 33 32 2c 32 35 |q%+44,10|0),32,25|
|00004050| 35 29 29 0d 18 06 0f 73 | 69 7a 65 25 3d 71 25 21 |5))....s|ize%=q%!|
|00004060| 33 36 0d 18 10 67 e7 20 | 73 69 7a 65 25 20 3e 3d |36...g. |size% >=|
|00004070| 20 6d 61 78 5f 70 72 6f | 67 5f 73 69 7a 65 25 20 | max_pro|g_size% |
|00004080| 8c 20 f2 77 61 72 6e 69 | 6e 67 28 22 50 72 6f 67 |. .warni|ng("Prog|
|00004090| 72 61 6d 20 22 2b a4 66 | 69 6c 74 65 72 28 a4 6d |ram "+.f|ilter(.m|
|000040a0| 65 6d 74 6f 73 74 72 28 | 71 25 2b 34 34 2c 32 35 |emtostr(|q%+44,25|
|000040b0| 30 29 2c 33 32 2c 32 35 | 35 29 2b 22 20 74 6f 6f |0),32,25|5)+" too|
|000040c0| 20 62 69 67 2e 22 29 3a | e1 0d 18 1a 29 71 25 21 | big."):|....)q%!|
|000040d0| 30 3d 36 30 3a 71 25 21 | 31 32 3d 71 25 21 38 3a |0=60:q%!|12=q%!8:|
|000040e0| 71 25 21 31 36 3d 36 3a | f4 20 52 41 4d 66 65 74 |q%!16=6:|. RAMfet|
|000040f0| 63 68 0d 18 24 37 71 25 | 21 32 30 3d 70 72 6f 67 |ch..$7q%|!20=prog|
|00004100| 5f 63 6f 64 65 25 28 6c | 6f 61 64 65 72 5f 6e 65 |_code%(l|oader_ne|
|00004110| 78 74 25 29 3a 71 25 21 | 32 34 3d 6d 61 78 5f 70 |xt%):q%!|24=max_p|
|00004120| 72 6f 67 5f 73 69 7a 65 | 25 0d 18 2e 24 c8 99 20 |rog_size|%...$.. |
|00004130| 22 57 69 6d 70 5f 53 65 | 6e 64 4d 65 73 73 61 67 |"Wimp_Se|ndMessag|
|00004140| 65 22 2c 31 38 2c 71 25 | 2c 71 25 21 34 0d 18 38 |e",18,q%|,q%!4..8|
|00004150| 0f 6d 79 72 65 66 25 3d | 71 25 21 38 0d 18 42 05 |.myref%=|q%!8..B.|
|00004160| cd 0d 18 4c 05 e1 0d 18 | 56 05 3a 0d 18 60 13 dd |...L....|V.:..`..|
|00004170| 20 f2 64 61 74 61 6c 6f | 61 64 28 71 25 29 0d 18 | .datalo|ad(q%)..|
|00004180| 6a 16 ea 20 70 74 72 25 | 2c 6c 65 6e 25 2c 70 6c |j.. ptr%|,len%,pl|
|00004190| 72 2c 68 25 0d 18 74 2f | 66 6e 61 6d 65 24 3d a4 |r,h%..t/|fname$=.|
|000041a0| 66 69 6c 74 65 72 28 a4 | 6d 65 6d 74 6f 73 74 72 |filter(.|memtostr|
|000041b0| 28 71 25 2b 34 34 2c 32 | 35 30 29 2c 33 32 2c 32 |(q%+44,2|50),32,2|
|000041c0| 35 35 29 0d 18 7e 21 e7 | 20 71 25 21 34 30 20 3d |55)..~!.| q%!40 =|
|000041d0| 20 26 46 46 46 20 80 20 | 71 25 21 31 36 20 3c 3e | &FFF . |q%!16 <>|
|000041e0| 20 35 20 8c 0d 18 88 55 | e7 20 ac 20 66 69 6e 69 | 5 ....U|. . fini|
|000041f0| 73 68 65 64 5f 67 61 6d | 65 25 20 8c 20 f2 77 61 |shed_gam|e% . .wa|
|00004200| 72 6e 69 6e 67 28 22 43 | 61 6e 6e 6f 74 20 61 73 |rning("C|annot as|
|00004210| 73 65 6d 62 6c 65 20 77 | 68 69 6c 65 20 70 6c 61 |semble w|hile pla|
|00004220| 79 69 6e 67 20 43 6f 72 | 65 20 57 61 72 2c 20 73 |ying Cor|e War, s|
|00004230| 6f 72 72 79 2e 22 29 3a | e1 0d 18 92 91 e7 20 ac |orry."):|...... .|
|00004240| 20 66 69 6e 69 73 68 65 | 64 5f 61 73 73 65 6d 62 | finishe|d_assemb|
|00004250| 6c 79 25 20 8c 20 e7 20 | ac 20 a4 71 75 65 72 79 |ly% . . |. .query|
|00004260| 28 22 43 75 72 72 65 6e | 74 6c 79 20 61 73 73 65 |("Curren|tly asse|
|00004270| 6d 62 6c 69 6e 67 20 22 | 2b 6c 65 61 66 6e 61 6d |mbling "|+leafnam|
|00004280| 65 24 2b 22 2c 20 61 72 | 65 20 79 6f 75 20 73 75 |e$+", ar|e you su|
|00004290| 72 65 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 61 |re you w|ant to a|
|000042a0| 73 73 65 6d 62 6c 65 20 | 22 2b a4 6c 65 61 66 28 |ssemble |"+.leaf(|
|000042b0| 66 6e 61 6d 65 24 29 2b | 22 3f 22 2c 70 72 6f 67 |fname$)+|"?",prog|
|000042c0| 5f 74 69 74 6c 65 24 29 | 20 e1 0d 18 9c 0f 68 25 |_title$)| .....h%|
|000042d0| 3d 8e 20 66 6e 61 6d 65 | 24 0d 18 a6 5f e7 20 68 |=. fname|$..._. h|
|000042e0| 25 3d 30 20 8c 20 f2 77 | 61 72 6e 69 6e 67 28 22 |%=0 . .w|arning("|
|000042f0| 46 69 6c 65 20 22 2b 66 | 6e 61 6d 65 24 2b 22 20 |File "+f|name$+" |
|00004300| 64 6f 65 73 20 6e 6f 74 | 20 65 78 69 73 74 20 2d |does not| exist -|
|00004310| 20 65 68 2c 20 64 69 64 | 6e 27 74 20 79 6f 75 20 | eh, did|n't you |
|00004320| 6a 75 73 74 20 64 72 61 | 67 20 69 74 20 74 6f 20 |just dra|g it to |
|00004330| 6d 65 3f 21 22 29 3a e1 | 0d 18 b0 1c 73 6f 75 72 |me?!"):.|....sour|
|00004340| 63 65 5f 6c 65 6e 67 74 | 68 25 3d a2 23 68 25 3a |ce_lengt|h%=.#h%:|
|00004350| d9 23 68 25 0d 18 ba 23 | 73 69 7a 65 25 3d 31 2e |.#h%...#|size%=1.|
|00004360| 31 32 35 2a 73 6f 75 72 | 63 65 5f 6c 65 6e 67 74 |125*sour|ce_lengt|
|00004370| 68 25 2b 31 30 32 34 0d | 18 c4 33 c8 99 20 22 57 |h%+1024.|..3.. "W|
|00004380| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 28 73 |imp_Slot|Size",(s|
|00004390| 74 61 72 74 73 6c 6f 74 | 25 2b 73 69 7a 65 25 29 |tartslot|%+size%)|
|000043a0| 2c 2d 31 20 b8 20 6e 65 | 77 25 0d 18 ce 1f e7 20 |,-1 . ne|w%..... |
|000043b0| 28 6e 65 77 25 2d 73 74 | 61 72 74 73 6c 6f 74 25 |(new%-st|artslot%|
|000043c0| 29 3c 73 69 7a 65 25 20 | 8c 0d 18 d8 26 c8 99 20 |)<size% |....&.. |
|000043d0| 22 57 69 6d 70 5f 53 6c | 6f 74 53 69 7a 65 22 2c |"Wimp_Sl|otSize",|
|000043e0| 63 75 72 72 65 6e 74 73 | 6c 6f 74 25 2c 2d 31 0d |currents|lot%,-1.|
|000043f0| 18 e2 66 f2 77 61 72 6e | 69 6e 67 28 22 43 6f 72 |..f.warn|ing("Cor|
|00004400| 65 20 57 61 72 20 6e 65 | 65 64 73 20 22 2b c3 28 |e War ne|eds "+.(|
|00004410| 38 2a a8 28 31 2b 73 69 | 7a 65 25 2f 38 31 39 32 |8*.(1+si|ze%/8192|
|00004420| 29 2b 22 6b 20 74 6f 20 | 61 73 73 65 6d 62 6c 65 |)+"k to |assemble|
|00004430| 20 74 68 65 20 66 69 6c | 65 20 22 2b a4 6c 65 61 | the fil|e "+.lea|
|00004440| 66 28 66 6e 61 6d 65 24 | 29 2b 22 2e 22 29 3a 45 |f(fname$|)+"."):E|
|00004450| 4e 50 52 4f 43 0d 18 ec | 05 cd 0d 18 f6 15 63 75 |NPROC...|......cu|
|00004460| 72 72 65 6e 74 73 6c 6f | 74 25 3d 6e 65 77 25 0d |rrentslo|t%=new%.|
|00004470| 19 00 10 73 74 6f 72 65 | 25 3d 93 2b 32 35 36 0d |...store|%=.+256.|
|00004480| 19 0a 2a 73 6f 75 72 63 | 65 5f 63 6f 64 65 25 3d |..*sourc|e_code%=|
|00004490| 73 74 6f 72 65 25 2b 6d | 61 78 5f 70 72 6f 67 5f |store%+m|ax_prog_|
|000044a0| 73 69 7a 65 25 2b 32 35 | 36 0d 19 14 05 3a 0d 19 |size%+25|6....:..|
|000044b0| 1e 29 ff 20 22 4c 6f 61 | 64 20 22 2b 66 6e 61 6d |.). "Loa|d "+fnam|
|000044c0| 65 24 2b 22 20 22 2b c3 | 7e 28 73 6f 75 72 63 65 |e$+" "+.|~(source|
|000044d0| 5f 63 6f 64 65 25 29 0d | 19 28 05 3a 0d 19 32 1b |_code%).|.(.:..2.|
|000044e0| 6c 65 61 66 6e 61 6d 65 | 24 3d a4 6c 65 61 66 28 |leafname|$=.leaf(|
|000044f0| 66 6e 61 6d 65 24 29 0d | 19 3c 0d f2 61 73 73 65 |fname$).|.<..asse|
|00004500| 6d 62 6c 65 0d 19 46 05 | 3a 0d 19 50 05 cd 0d 19 |mble..F.|:..P....|
|00004510| 5a 3a e7 20 71 25 21 34 | 30 20 3d 20 6f 62 6a 65 |Z:. q%!4|0 = obje|
|00004520| 63 74 5f 66 69 6c 65 74 | 79 70 65 25 20 84 20 28 |ct_filet|ype% . (|
|00004530| 71 25 21 31 36 3c 3e 35 | 20 80 20 71 25 21 34 30 |q%!16<>5| . q%!40|
|00004540| 3d 26 46 46 44 29 20 8c | 0d 19 64 2c e7 20 71 25 |=&FFD) .|..d,. q%|
|00004550| 21 32 30 20 3c 3e 20 6c | 6f 61 64 65 72 25 20 8c |!20 <> l|oader% .|
|00004560| 20 66 72 6f 6e 74 25 3d | b9 20 8b 20 66 72 6f 6e | front%=|. . fron|
|00004570| 74 25 3d a3 0d 19 6e 4b | e7 20 71 25 21 33 36 20 |t%=...nK|. q%!36 |
|00004580| 3e 20 6d 61 78 5f 70 72 | 6f 67 5f 73 69 7a 65 25 |> max_pr|og_size%|
|00004590| 20 8c 20 f2 77 61 72 6e | 69 6e 67 28 22 50 72 6f | . .warn|ing("Pro|
|000045a0| 67 72 61 6d 20 22 2b 6c | 65 61 66 6e 61 6d 65 24 |gram "+l|eafname$|
|000045b0| 2b 22 20 74 6f 6f 20 62 | 69 67 2e 22 29 3a e1 0d |+" too b|ig."):..|
|000045c0| 19 78 3e 70 6c 61 79 65 | 72 24 28 6c 6f 61 64 65 |.x>playe|r$(loade|
|000045d0| 72 5f 6e 65 78 74 25 29 | 3d a4 66 69 6c 74 65 72 |r_next%)|=.filter|
|000045e0| 28 a4 6d 65 6d 74 6f 73 | 74 72 28 71 25 2b 34 34 |(.memtos|tr(q%+44|
|000045f0| 2c 32 35 30 29 2c 33 32 | 2c 32 35 35 29 0d 19 82 |,250),32|,255)...|
|00004600| 89 e7 20 70 6c 61 79 65 | 72 24 28 6c 6f 61 64 65 |.. playe|r$(loade|
|00004610| 72 5f 6e 65 78 74 25 29 | 3d 22 3c 57 69 6d 70 24 |r_next%)|="<Wimp$|
|00004620| 53 63 72 61 70 3e 22 20 | 8c 20 24 6c 6f 61 64 65 |Scrap>" |. $loade|
|00004630| 72 5f 70 6c 25 28 6c 6f | 61 64 65 72 5f 6e 65 78 |r_pl%(lo|ader_nex|
|00004640| 74 25 29 3d 6c 65 61 66 | 6e 61 6d 65 24 20 8b 20 |t%)=leaf|name$ . |
|00004650| 24 6c 6f 61 64 65 72 5f | 70 6c 25 28 6c 6f 61 64 |$loader_|pl%(load|
|00004660| 65 72 5f 6e 65 78 74 25 | 29 3d a4 6c 65 61 66 28 |er_next%|)=.leaf(|
|00004670| 70 6c 61 79 65 72 24 28 | 6c 6f 61 64 65 72 5f 6e |player$(|loader_n|
|00004680| 65 78 74 25 29 29 0d 19 | 8c 40 68 25 3d ad 20 70 |ext%))..|.@h%=. p|
|00004690| 6c 61 79 65 72 24 28 6c | 6f 61 64 65 72 5f 6e 65 |layer$(l|oader_ne|
|000046a0| 78 74 25 29 3a 70 72 6f | 67 5f 6c 65 6e 25 28 6c |xt%):pro|g_len%(l|
|000046b0| 6f 61 64 65 72 5f 6e 65 | 78 74 25 29 3d a2 23 68 |oader_ne|xt%)=.#h|
|000046c0| 25 3a d9 23 68 25 0d 19 | 96 42 ff 20 22 4c 6f 61 |%:.#h%..|.B. "Loa|
|000046d0| 64 20 22 2b 70 6c 61 79 | 65 72 24 28 6c 6f 61 64 |d "+play|er$(load|
|000046e0| 65 72 5f 6e 65 78 74 25 | 29 2b 22 20 22 2b c3 7e |er_next%|)+" "+.~|
|000046f0| 70 72 6f 67 5f 63 6f 64 | 65 25 28 6c 6f 61 64 65 |prog_cod|e%(loade|
|00004700| 72 5f 6e 65 78 74 25 29 | 0d 19 a0 48 e7 20 70 6c |r_next%)|...H. pl|
|00004710| 61 79 65 72 24 28 6c 6f | 61 64 65 72 5f 6e 65 78 |ayer$(lo|ader_nex|
|00004720| 74 25 29 3d 22 3c 57 69 | 6d 70 24 53 63 72 61 70 |t%)="<Wi|mp$Scrap|
|00004730| 3e 22 20 8c 20 ff 20 22 | 57 69 70 65 20 3c 57 69 |>" . . "|Wipe <Wi|
|00004740| 6d 70 24 53 63 72 61 70 | 3e 20 7e 43 7e 56 46 22 |mp$Scrap|> ~C~VF"|
|00004750| 0d 19 aa 3f 71 25 21 30 | 3d 32 30 3a 71 25 21 31 |...?q%!0|=20:q%!1|
|00004760| 32 3d 71 25 21 38 3a 71 | 25 21 31 36 3d 34 3a c8 |2=q%!8:q|%!16=4:.|
|00004770| 99 20 22 57 69 6d 70 5f | 53 65 6e 64 4d 65 73 73 |. "Wimp_|SendMess|
|00004780| 61 67 65 22 2c 31 37 2c | 71 25 2c 71 25 21 34 0d |age",17,|q%,q%!4.|
|00004790| 19 b4 4c 71 25 21 30 3d | 6c 6f 61 64 65 72 25 3a |..Lq%!0=|loader%:|
|000047a0| 71 25 21 34 3d 6c 6f 61 | 64 65 72 5f 6e 65 78 74 |q%!4=loa|der_next|
|000047b0| 25 3a 71 25 21 38 3d 30 | 3a 71 25 21 31 32 3d 30 |%:q%!8=0|:q%!12=0|
|000047c0| 3a c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f |:.. "Wim|p_SetIco|
|000047d0| 6e 53 74 61 74 65 22 2c | 2c 71 25 0d 19 be 35 6c |nState",|,q%...5l|
|000047e0| 6f 61 64 65 72 5f 6e 65 | 78 74 25 2b 3d 31 3a e7 |oader_ne|xt%+=1:.|
|000047f0| 20 6c 6f 61 64 65 72 5f | 6e 65 78 74 25 3d 32 20 | loader_|next%=2 |
|00004800| 8c 20 6c 6f 61 64 65 72 | 5f 6e 65 78 74 25 3d 30 |. loader|_next%=0|
|00004810| 0d 19 c8 13 f2 66 72 6f | 6e 74 28 6c 6f 61 64 65 |.....fro|nt(loade|
|00004820| 72 25 29 0d 19 d2 05 cd | 0d 19 dc 05 e1 0d 19 e6 |r%).....|........|
|00004830| 05 3a 0d 19 f0 16 dd 20 | f2 72 61 6d 74 72 61 6e |.:..... |.ramtran|
|00004840| 73 6d 69 74 28 71 25 29 | 0d 19 fa 27 e7 20 71 25 |smit(q%)|...'. q%|
|00004850| 21 31 32 3d 6d 79 72 65 | 66 25 20 80 20 72 61 6d |!12=myre|f% . ram|
|00004860| 6c 6f 61 64 5f 61 74 74 | 65 6d 70 74 25 20 8c 0d |load_att|empt% ..|
|00004870| 1a 04 18 e7 20 ac 20 61 | 73 73 65 6d 62 6c 79 5f |.... . a|ssembly_|
|00004880| 6c 6f 61 64 25 20 8c 0d | 1a 0e 20 e7 20 71 25 21 |load% ..|.. . q%!|
|00004890| 32 34 20 3e 20 6d 61 78 | 5f 70 72 6f 67 5f 73 69 |24 > max|_prog_si|
|000048a0| 7a 65 25 20 8c 20 e1 0d | 1a 18 05 3a 0d 1a 22 23 |ze% . ..|...:.."#|
|000048b0| 70 6c 61 79 65 72 24 28 | 6c 6f 61 64 65 72 5f 6e |player$(|loader_n|
|000048c0| 65 78 74 25 29 3d 6c 65 | 61 66 6e 61 6d 65 24 0d |ext%)=le|afname$.|
|000048d0| 1a 2c 21 70 72 6f 67 5f | 6c 65 6e 25 28 6c 6f 61 |.,!prog_|len%(loa|
|000048e0| 64 65 72 5f 6e 65 78 74 | 25 29 3d 71 25 21 32 34 |der_next|%)=q%!24|
|000048f0| 0d 1a 36 05 3a 0d 1a 40 | 16 72 61 6d 6c 6f 61 64 |..6.:..@|.ramload|
|00004900| 5f 61 74 74 65 6d 70 74 | 25 3d a3 0d 1a 4a 0d 6d |_attempt|%=...J.m|
|00004910| 79 72 65 66 25 3d 2d 31 | 0d 1a 54 05 3a 0d 1a 5e |yref%=-1|..T.:..^|
|00004920| 27 24 6c 6f 61 64 65 72 | 5f 70 6c 25 28 6c 6f 61 |'$loader|_pl%(loa|
|00004930| 64 65 72 5f 6e 65 78 74 | 25 29 3d 6c 65 61 66 6e |der_next|%)=leafn|
|00004940| 61 6d 65 24 0d 1a 68 4c | 71 25 21 30 3d 6c 6f 61 |ame$..hL|q%!0=loa|
|00004950| 64 65 72 25 3a 71 25 21 | 34 3d 6c 6f 61 64 65 72 |der%:q%!|4=loader|
|00004960| 5f 6e 65 78 74 25 3a 71 | 25 21 38 3d 30 3a 71 25 |_next%:q|%!8=0:q%|
|00004970| 21 31 32 3d 30 3a c8 99 | 20 22 57 69 6d 70 5f 53 |!12=0:..| "Wimp_S|
|00004980| 65 74 49 63 6f 6e 53 74 | 61 74 65 22 2c 2c 71 25 |etIconSt|ate",,q%|
|00004990| 0d 1a 72 35 6c 6f 61 64 | 65 72 5f 6e 65 78 74 25 |..r5load|er_next%|
|000049a0| 2b 3d 31 3a e7 20 6c 6f | 61 64 65 72 5f 6e 65 78 |+=1:. lo|ader_nex|
|000049b0| 74 25 3d 32 20 8c 20 6c | 6f 61 64 65 72 5f 6e 65 |t%=2 . l|oader_ne|
|000049c0| 78 74 25 3d 30 0d 1a 7c | 13 f2 66 72 6f 6e 74 28 |xt%=0..||..front(|
|000049d0| 6c 6f 61 64 65 72 25 29 | 0d 1a 86 05 3a 0d 1a 90 |loader%)|....:...|
|000049e0| 05 cc 0d 1a 9a 18 73 6f | 75 72 63 65 5f 6c 65 6e |......so|urce_len|
|000049f0| 67 74 68 25 3d 71 25 21 | 32 34 0d 1a a4 16 72 61 |gth%=q%!|24....ra|
|00004a00| 6d 6c 6f 61 64 5f 61 74 | 74 65 6d 70 74 25 3d a3 |mload_at|tempt%=.|
|00004a10| 0d 1a ae 0d 6d 79 72 65 | 66 25 3d 2d 31 0d 1a b8 |....myre|f%=-1...|
|00004a20| 05 3a 0d 1a c2 0d f2 61 | 73 73 65 6d 62 6c 65 0d |.:.....a|ssemble.|
|00004a30| 1a cc 05 3a 0d 1a d6 05 | cd 0d 1a e0 05 e1 0d 1a |...:....|........|
|00004a40| ea 05 3a 0d 1a f4 10 dd | 20 f2 6e 6f 61 63 6b 28 |..:.....| .noack(|
|00004a50| 71 25 29 0d 1a fe 16 e7 | 20 71 25 21 38 20 3d 20 |q%).....| q%!8 = |
|00004a60| 6d 79 72 65 66 25 20 8c | 20 0d 1b 08 1a e7 20 72 |myref% .| ..... r|
|00004a70| 61 6d 6c 6f 61 64 5f 61 | 74 74 65 6d 70 74 25 3d |amload_a|ttempt%=|
|00004a80| b9 20 8c 0d 1b 12 16 72 | 61 6d 6c 6f 61 64 5f 61 |. .....r|amload_a|
|00004a90| 74 74 65 6d 70 74 25 3d | a3 0d 1b 1c 0b 71 25 21 |ttempt%=|.....q%!|
|00004aa0| 30 3d 36 30 0d 1b 26 0e | 71 25 21 31 32 3d 71 25 |0=60..&.|q%!12=q%|
|00004ab0| 21 38 0d 1b 30 0b 71 25 | 21 31 36 3d 32 0d 1b 3a |!8..0.q%|!16=2..:|
|00004ac0| 0c 71 25 21 33 36 3d 2d | 31 0d 1b 44 3c c8 99 20 |.q%!36=-|1..D<.. |
|00004ad0| 22 58 4f 53 5f 52 65 61 | 64 56 61 72 56 61 6c 22 |"XOS_Rea|dVarVal"|
|00004ae0| 2c 22 57 69 6d 70 24 53 | 63 72 61 70 22 2c 71 25 |,"Wimp$S|crap",q%|
|00004af0| 2b 31 30 30 2c 31 30 2c | 30 2c 30 20 b8 20 2c 2c |+100,10,|0,0 . ,,|
|00004b00| 74 65 6d 70 25 0d 1b 4e | 12 e7 20 74 65 6d 70 25 |temp%..N|.. temp%|
|00004b10| 20 3c 3e 20 30 20 8c 0d | 1b 58 1b 24 28 71 25 2b | <> 0 ..|.X.$(q%+|
|00004b20| 34 34 29 3d 22 3c 57 69 | 6d 70 24 53 63 72 61 70 |44)="<Wi|mp$Scrap|
|00004b30| 3e 22 0d 1b 62 24 c8 99 | 20 22 57 69 6d 70 5f 53 |>"..b$..| "Wimp_S|
|00004b40| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 38 2c 71 |endMessa|ge",18,q|
|00004b50| 25 2c 71 25 21 34 0d 1b | 6c 0f 6d 79 72 65 66 25 |%,q%!4..|l.myref%|
|00004b60| 3d 71 25 21 38 0d 1b 76 | 05 cc 0d 1b 80 28 f2 77 |=q%!8..v|.....(.w|
|00004b70| 61 72 6e 69 6e 67 28 22 | 3c 57 69 6d 70 24 53 63 |arning("|<Wimp$Sc|
|00004b80| 72 61 70 3e 20 6e 6f 74 | 20 64 65 66 69 6e 65 64 |rap> not| defined|
|00004b90| 22 29 0d 1b 8a 05 cd 0d | 1b 94 05 cd 0d 1b 9e 05 |")......|........|
|00004ba0| cd 0d 1b a8 05 e1 0d 1b | b2 05 3a 0d 1b bc 16 dd |........|..:.....|
|00004bb0| 20 f2 64 61 74 61 6c 6f | 61 64 61 63 6b 28 71 25 | .datalo|adack(q%|
|00004bc0| 29 0d 1b c6 14 e7 20 71 | 25 21 31 32 3d 6d 79 72 |)..... q|%!12=myr|
|00004bd0| 65 66 25 20 8c 0d 1b d0 | 0d 6d 79 72 65 66 25 3d |ef% ....|.myref%=|
|00004be0| 2d 31 0d 1b da 07 cd 20 | 20 0d 1b e4 05 e1 0d 1b |-1..... | .......|
|00004bf0| ee 05 3a 0d 1b f8 16 dd | 20 f2 64 72 61 67 5f 72 |..:.....| .drag_r|
|00004c00| 65 74 75 72 6e 28 71 25 | 29 0d 1c 02 12 e7 20 64 |eturn(q%|)..... d|
|00004c10| 72 61 67 62 6f 78 25 3d | b9 20 8c 0d 1c 0c 0e 64 |ragbox%=|. .....d|
|00004c20| 72 61 67 62 6f 78 25 3d | a3 0d 1c 16 0f f2 67 65 |ragbox%=|......ge|
|00004c30| 74 70 6f 69 6e 74 65 72 | 0d 1c 20 0b 71 25 21 30 |tpointer|.. .q%!0|
|00004c40| 3d 36 30 0d 1c 2a 0b 71 | 25 21 31 32 3d 30 0d 1c |=60..*.q|%!12=0..|
|00004c50| 34 0b 71 25 21 31 36 3d | 31 0d 1c 3e 11 71 25 21 |4.q%!16=|1..>.q%!|
|00004c60| 32 30 3d 68 61 6e 64 6c | 65 25 0d 1c 48 0f 71 25 |20=handl|e%..H.q%|
|00004c70| 21 32 34 3d 69 63 6f 6e | 25 0d 1c 52 11 71 25 21 |!24=icon|%..R.q%!|
|00004c80| 32 38 3d 6d 6f 75 73 65 | 78 25 0d 1c 5c 11 71 25 |28=mouse|x%..\.q%|
|00004c90| 21 33 32 3d 6d 6f 75 73 | 65 79 25 0d 1c 66 16 71 |!32=mous|ey%..f.q|
|00004ca0| 25 21 33 36 3d 63 6f 64 | 65 5f 6c 65 6e 67 74 68 |%!36=cod|e_length|
|00004cb0| 25 0d 1c 70 0e 71 25 21 | 34 30 3d 26 46 46 46 0d |%..p.q%!|40=&FFF.|
|00004cc0| 1c 7a 23 24 28 71 25 2b | 34 34 29 3d a4 6c 65 61 |.z#$(q%+|44)=.lea|
|00004cd0| 66 28 24 73 61 76 65 5f | 70 74 72 25 29 2b bd 28 |f($save_|ptr%)+.(|
|00004ce0| 30 29 0d 1c 84 2d c8 99 | 20 22 57 69 6d 70 5f 53 |0)...-..| "Wimp_S|
|00004cf0| 65 6e 64 4d 65 73 73 61 | 67 65 22 2c 31 37 2c 71 |endMessa|ge",17,q|
|00004d00| 25 2c 68 61 6e 64 6c 65 | 25 2c 69 63 6f 6e 25 0d |%,handle|%,icon%.|
|00004d10| 1c 8e 0f 6d 79 72 65 66 | 25 3d 71 25 21 38 0d 1c |...myref|%=q%!8..|
|00004d20| 98 05 cd 0d 1c a2 05 e1 | 0d 1c ac 05 3a 0d 1c b6 |........|....:...|
|00004d30| 16 dd 20 f2 64 61 74 61 | 73 61 76 65 61 63 6b 28 |.. .data|saveack(|
|00004d40| 71 25 29 0d 1c c0 0b ea | 20 68 25 2c 65 25 0d 1c |q%).....| h%,e%..|
|00004d50| ca 12 e7 20 71 25 21 31 | 32 3d 6d 79 72 65 66 25 |... q%!1|2=myref%|
|00004d60| 0d 1c d4 22 70 61 74 68 | 6e 61 6d 65 24 3d a4 6d |..."path|name$=.m|
|00004d70| 65 6d 74 6f 73 74 72 28 | 71 25 2b 34 34 2c 31 30 |emtostr(|q%+44,10|
|00004d80| 30 29 0d 1c de 18 68 25 | 3d ad 28 70 61 74 68 6e |0)....h%|=.(pathn|
|00004d90| 61 6d 65 24 29 3a d9 23 | 68 25 0d 1c e8 7c e7 20 |ame$):.#|h%...|. |
|00004da0| 68 25 3c 3e 30 20 80 20 | 70 61 74 68 6e 61 6d 65 |h%<>0 . |pathname|
|00004db0| 24 3c 3e 22 3c 57 69 6d | 70 24 53 63 72 61 70 3e |$<>"<Wim|p$Scrap>|
|00004dc0| 22 20 8c 20 e7 20 ac 20 | a4 71 75 65 72 79 28 22 |" . . . |.query("|
|00004dd0| 46 69 6c 65 20 22 2b a4 | 6c 65 61 66 28 70 61 74 |File "+.|leaf(pat|
|00004de0| 68 6e 61 6d 65 24 29 2b | 22 20 61 6c 72 65 61 64 |hname$)+|" alread|
|00004df0| 79 20 65 78 69 73 74 73 | 2c 20 6f 76 65 72 77 72 |y exists|, overwr|
|00004e00| 69 74 65 3f 22 2c 70 72 | 6f 67 5f 74 69 74 6c 65 |ite?",pr|og_title|
|00004e10| 24 29 20 8c 20 e1 0d 1c | f2 3c ff 20 22 53 61 76 |$) . ...|.<. "Sav|
|00004e20| 65 20 22 2b 70 61 74 68 | 6e 61 6d 65 24 2b 22 20 |e "+path|name$+" |
|00004e30| 22 2b c3 7e 28 73 74 6f | 72 65 25 29 2b 22 20 2b |"+.~(sto|re%)+" +|
|00004e40| 22 2b c3 7e 28 63 6f 64 | 65 5f 6c 65 6e 67 74 68 |"+.~(cod|e_length|
|00004e50| 25 29 0d 1c fc 6e e7 20 | 6f 62 6a 65 63 74 5f 66 |%)...n. |object_f|
|00004e60| 69 6c 65 74 79 70 65 25 | 20 3c 3e 20 2d 31 20 8c |iletype%| <> -1 .|
|00004e70| 20 ff 20 22 53 65 74 54 | 79 70 65 20 22 2b 70 61 | . "SetT|ype "+pa|
|00004e80| 74 68 6e 61 6d 65 24 2b | 22 20 22 2b c3 7e 28 6f |thname$+|" "+.~(o|
|00004e90| 62 6a 65 63 74 5f 66 69 | 6c 65 74 79 70 65 25 29 |bject_fi|letype%)|
|00004ea0| 20 8b 20 ff 20 22 53 65 | 74 54 79 70 65 20 22 2b | . . "Se|tType "+|
|00004eb0| 70 61 74 68 6e 61 6d 65 | 24 2b 22 20 46 46 44 22 |pathname|$+" FFD"|
|00004ec0| 0d 1d 06 17 71 25 21 31 | 32 3d 71 25 21 38 3a 71 |....q%!1|2=q%!8:q|
|00004ed0| 25 21 31 36 3d 33 3a 0d | 1d 10 1d 71 25 21 32 30 |%!16=3:.|...q%!20|
|00004ee0| 3d 68 61 6e 64 6c 65 25 | 3a 71 25 21 32 34 3d 69 |=handle%|:q%!24=i|
|00004ef0| 63 6f 6e 25 0d 1d 1a 1f | 71 25 21 32 38 3d 6d 6f |con%....|q%!28=mo|
|00004f00| 75 73 65 78 25 3a 71 25 | 21 33 32 3d 6d 6f 75 73 |usex%:q%|!32=mous|
|00004f10| 65 79 25 0d 1d 24 21 71 | 25 21 33 36 3d 63 6f 64 |ey%..$!q|%!36=cod|
|00004f20| 65 5f 6c 65 6e 67 74 68 | 25 3a 71 25 21 34 30 3d |e_length|%:q%!40=|
|00004f30| 26 46 46 46 0d 1d 2e 16 | 24 28 71 25 2b 34 34 29 |&FFF....|$(q%+44)|
|00004f40| 3d 70 61 74 68 6e 61 6d | 65 24 0d 1d 38 2d c8 99 |=pathnam|e$..8-..|
|00004f50| 20 22 57 69 6d 70 5f 53 | 65 6e 64 4d 65 73 73 61 | "Wimp_S|endMessa|
|00004f60| 67 65 22 2c 31 37 2c 71 | 25 2c 68 61 6e 64 6c 65 |ge",17,q|%,handle|
|00004f70| 25 2c 69 63 6f 6e 25 0d | 1d 42 0f 6d 79 72 65 66 |%,icon%.|.B.myref|
|00004f80| 25 3d 71 25 21 38 0d 1d | 4c 1c f2 63 6c 6f 73 65 |%=q%!8..|L..close|
|00004f90| 5f 77 69 6e 64 6f 77 28 | 73 61 76 65 5f 77 69 6e |_window(|save_win|
|00004fa0| 25 29 0d 1d 56 05 cd 0d | 1d 60 05 e1 0d 1d 6a 05 |%)..V...|.`....j.|
|00004fb0| 3a 0d 1d 74 16 dd 20 f2 | 64 72 61 67 5f 72 65 74 |:..t.. .|drag_ret|
|00004fc0| 75 72 6e 28 71 25 29 0d | 1d 7e 12 e7 20 64 72 61 |urn(q%).|.~.. dra|
|00004fd0| 67 62 6f 78 25 3d b9 20 | 8c 0d 1d 88 0e 64 72 61 |gbox%=. |.....dra|
|00004fe0| 67 62 6f 78 25 3d a3 0d | 1d 92 0f f2 67 65 74 70 |gbox%=..|....getp|
|00004ff0| 6f 69 6e 74 65 72 0d 1d | 9c 0b 71 25 21 30 3d 36 |ointer..|..q%!0=6|
|00005000| 30 0d 1d a6 0b 71 25 21 | 31 32 3d 30 0d 1d b0 0b |0....q%!|12=0....|
|00005010| 71 25 21 31 36 3d 31 0d | 1d ba 11 71 25 21 32 30 |q%!16=1.|...q%!20|
|00005020| 3d 68 61 6e 64 6c 65 25 | 0d 1d c4 0f 71 25 21 32 |=handle%|....q%!2|
|00005030| 34 3d 69 63 6f 6e 25 0d | 1d ce 11 71 25 21 32 38 |4=icon%.|...q%!28|
|00005040| 3d 6d 6f 75 73 65 78 25 | 0d 1d d8 11 71 25 21 33 |=mousex%|....q%!3|
|00005050| 32 3d 6d 6f 75 73 65 79 | 25 0d 1d e2 0e 71 25 21 |2=mousey|%....q%!|
|00005060| 33 36 3d 32 30 30 30 0d | 1d ec 0e 71 25 21 34 30 |36=2000.|...q%!40|
|00005070| 3d 26 46 46 46 0d 1d f6 | 23 24 28 71 25 2b 34 34 |=&FFF...|#$(q%+44|
|00005080| 29 3d a4 6c 65 61 66 28 | 24 73 61 76 65 5f 70 74 |)=.leaf(|$save_pt|
|00005090| 72 25 29 2b bd 28 30 29 | 0d 1e 00 2d c8 99 20 22 |r%)+.(0)|...-.. "|
|000050a0| 57 69 6d 70 5f 53 65 6e | 64 4d 65 73 73 61 67 65 |Wimp_Sen|dMessage|
|000050b0| 22 2c 31 37 2c 71 25 2c | 68 61 6e 64 6c 65 25 2c |",17,q%,|handle%,|
|000050c0| 69 63 6f 6e 25 0d 1e 0a | 0f 6d 79 72 65 66 25 3d |icon%...|.myref%=|
|000050d0| 71 25 21 38 0d 1e 14 05 | cd 0d 1e 1e 05 e1 0d 1e |q%!8....|........|
|000050e0| 28 05 3a 0d 1e 32 12 dd | 20 f2 67 65 74 6d 6f 64 |(.:..2..| .getmod|
|000050f0| 65 69 6e 66 6f 0d 1e 3c | 3c c8 99 20 22 43 6f 6c |einfo..<|<.. "Col|
|00005100| 6f 75 72 54 72 61 6e 73 | 5f 52 65 74 75 72 6e 47 |ourTrans|_ReturnG|
|00005110| 43 4f 4c 22 2c 73 63 72 | 65 65 6e 5f 70 61 6c 25 |COL",scr|een_pal%|
|00005120| 21 34 20 b8 20 63 6f 6c | 5f 74 61 62 6c 65 32 3f |!4 . col|_table2?|
|00005130| 30 0d 1e 46 3c c8 99 20 | 22 43 6f 6c 6f 75 72 54 |0..F<.. |"ColourT|
|00005140| 72 61 6e 73 5f 52 65 74 | 75 72 6e 47 43 4f 4c 22 |rans_Ret|urnGCOL"|
|00005150| 2c 73 63 72 65 65 6e 5f | 70 61 6c 25 21 38 20 b8 |,screen_|pal%!8 .|
|00005160| 20 63 6f 6c 5f 74 61 62 | 6c 65 32 3f 31 0d 1e 50 | col_tab|le2?1..P|
|00005170| 46 c8 99 22 57 69 6d 70 | 5f 52 65 61 64 50 69 78 |F.."Wimp|_ReadPix|
|00005180| 54 72 61 6e 73 22 2c 26 | 31 30 30 2c 73 70 72 69 |Trans",&|100,spri|
|00005190| 74 65 73 25 2c 22 73 63 | 72 65 65 6e 22 2c 2c 2c |tes%,"sc|reen",,,|
|000051a0| 2c 66 61 63 74 6f 72 73 | 25 2c 70 69 78 74 72 61 |,factors|%,pixtra|
|000051b0| 6e 73 25 0d 1e 5a 39 c8 | 99 20 22 4f 53 5f 52 65 |ns%..Z9.|. "OS_Re|
|000051c0| 61 64 4d 6f 64 65 56 61 | 72 69 61 62 6c 65 22 2c |adModeVa|riable",|
|000051d0| 73 63 72 65 65 6e 5f 6d | 6f 64 65 25 2c 33 20 b8 |screen_m|ode%,3 .|
|000051e0| 2c 2c 6e 75 6d 6f 66 63 | 6f 6c 73 25 0d 1e 64 49 |,,numofc|ols%..dI|
|000051f0| c8 99 20 22 43 6f 6c 6f | 75 72 54 72 61 6e 73 5f |.. "Colo|urTrans_|
|00005200| 53 65 6c 65 63 74 54 61 | 62 6c 65 22 2c 73 63 72 |SelectTa|ble",scr|
|00005210| 65 65 6e 5f 6d 6f 64 65 | 25 2c 73 63 72 65 65 6e |een_mode|%,screen|
|00005220| 5f 70 61 6c 25 2c 2d 31 | 2c 2d 31 2c 70 69 78 74 |_pal%,-1|,-1,pixt|
|00005230| 72 61 6e 73 25 0d 1e 6e | 12 70 69 78 25 3d 70 69 |rans%..n|.pix%=pi|
|00005240| 78 74 72 61 6e 73 25 0d | 1e 78 15 e7 20 6e 75 6d |xtrans%.|.x.. num|
|00005250| 6f 66 63 6f 6c 73 25 3e | 31 35 20 8c 0d 1e 82 2f |ofcols%>|15 ..../|
|00005260| c8 99 20 22 4f 53 5f 52 | 65 61 64 4d 6f 64 65 56 |.. "OS_R|eadModeV|
|00005270| 61 72 69 61 62 6c 65 22 | 2c eb 2c 33 20 b8 20 2c |ariable"|,.,3 . ,|
|00005280| 2c 6e 75 6d 6f 66 63 6f | 6c 73 25 0d 1e 8c 1e e7 |,numofco|ls%.....|
|00005290| 20 6e 75 6d 6f 66 63 6f | 6c 73 25 3e 31 35 20 8c | numofco|ls%>15 .|
|000052a0| 20 70 69 78 25 20 3d 20 | 30 0d 1e 96 05 cd 0d 1e | pix% = |0.......|
|000052b0| a0 05 e1 0d 1e aa 05 3a | 0d 1e b4 18 dd 20 f2 72 |.......:|..... .r|
|000052c0| 65 64 72 61 77 5f 77 69 | 6e 64 6f 77 28 71 25 29 |edraw_wi|ndow(q%)|
|000052d0| 0d 1e be 0b ea 20 6d 6f | 72 65 25 0d 1e c8 26 c8 |..... mo|re%...&.|
|000052e0| 99 20 22 57 69 6d 70 5f | 52 65 64 72 61 77 57 69 |. "Wimp_|RedrawWi|
|000052f0| 6e 64 6f 77 22 2c 2c 71 | 25 20 b8 20 6d 6f 72 65 |ndow",,q|% . more|
|00005300| 25 0d 1e d2 0f f2 69 6e | 66 6f 28 71 25 2b 34 29 |%.....in|fo(q%+4)|
|00005310| 0d 1e dc 0c c8 95 20 6d | 6f 72 65 25 0d 1e e6 0c |...... m|ore%....|
|00005320| c8 8e 20 21 71 25 20 ca | 0d 1e f0 51 c9 20 73 63 |.. !q% .|...Q. sc|
|00005330| 72 65 65 6e 25 20 20 20 | 20 3a 20 c8 99 20 22 4f |reen%   | : .. "O|
|00005340| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 26 31 33 34 |S_Sprite|Op",&134|
|00005350| 2c 73 70 72 69 74 65 73 | 25 2c 22 73 63 72 65 65 |,sprites|%,"scree|
|00005360| 6e 22 2c 62 78 25 2c 62 | 79 25 2c 2c 66 61 63 74 |n",bx%,b|y%,,fact|
|00005370| 6f 72 73 25 2c 70 69 78 | 25 0d 1e fa 42 c9 20 65 |ors%,pix|%...B. e|
|00005380| 72 72 6f 72 5f 77 69 6e | 25 20 3a 20 f2 72 65 64 |rror_win|% : .red|
|00005390| 72 61 77 5f 74 65 78 74 | 77 69 6e 64 6f 77 28 71 |raw_text|window(q|
|000053a0| 25 2c 65 72 72 6f 72 62 | 75 66 66 65 72 24 28 29 |%,errorb|uffer$()|
|000053b0| 2c 65 72 72 6f 72 70 74 | 72 25 29 0d 1f 04 05 cb |,errorpt|r%).....|
|000053c0| 0d 1f 0e 27 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |...'.. "|Wimp_Get|
|000053d0| 52 65 63 74 61 6e 67 6c | 65 22 2c 30 2c 71 25 20 |Rectangl|e",0,q% |
|000053e0| b8 20 6d 6f 72 65 25 0d | 1f 18 05 ce 0d 1f 22 05 |. more%.|......".|
|000053f0| cd 0d 1f 2c 05 e1 0d 1f | 36 05 3a 0d 1f 40 0f dd |...,....|6.:..@..|
|00005400| 20 f2 69 6e 66 6f 28 71 | 25 29 0d 1f 4a 3d 78 30 | .info(q|%)..J=x0|
|00005410| 25 3d 21 71 25 3a 79 30 | 25 3d 71 25 21 34 3a 78 |%=!q%:y0|%=q%!4:x|
|00005420| 31 25 3d 71 25 21 38 3a | 79 31 25 3d 71 25 21 31 |1%=q%!8:|y1%=q%!1|
|00005430| 32 3a 73 63 78 25 3d 71 | 25 21 31 36 3a 73 63 79 |2:scx%=q|%!16:scy|
|00005440| 25 3d 71 25 21 32 30 0d | 1f 54 1d 62 78 25 3d 78 |%=q%!20.|.T.bx%=x|
|00005450| 30 25 2d 73 63 78 25 3a | 62 79 25 3d 79 31 25 2d |0%-scx%:|by%=y1%-|
|00005460| 73 63 79 25 0d 1f 5e 05 | e1 0d 1f 68 05 3a 0d 1f |scy%..^.|...h.:..|
|00005470| 72 2a dd 20 f2 72 65 64 | 72 61 77 5f 74 65 78 74 |r*. .red|raw_text|
|00005480| 77 69 6e 64 6f 77 28 71 | 25 2c 61 72 72 61 79 24 |window(q|%,array$|
|00005490| 28 29 2c 6d 61 78 25 29 | 0d 1f 7c 4d ea 20 6c 6f |(),max%)|..|M. lo|
|000054a0| 6f 70 25 2c 6c 65 66 74 | 6d 61 72 67 69 6e 25 2c |op%,left|margin%,|
|000054b0| 74 6f 70 6d 61 72 67 69 | 6e 25 2c 78 5f 73 70 61 |topmargi|n%,x_spa|
|000054c0| 63 69 6e 67 25 2c 79 5f | 73 70 61 63 69 6e 67 25 |cing%,y_|spacing%|
|000054d0| 2c 73 74 61 72 74 5f 78 | 25 2c 73 74 61 72 74 5f |,start_x|%,start_|
|000054e0| 79 25 2c 79 25 0d 1f 86 | 1f 6c 65 66 74 6d 61 72 |y%,y%...|.leftmar|
|000054f0| 67 69 6e 25 3d 38 3a 74 | 6f 70 6d 61 72 67 69 6e |gin%=8:t|opmargin|
|00005500| 25 3d 31 36 0d 1f 90 1f | 78 5f 73 70 61 63 69 6e |%=16....|x_spacin|
|00005510| 67 25 3d 31 36 3a 79 5f | 73 70 61 63 69 6e 67 25 |g%=16:y_|spacing%|
|00005520| 3d 34 34 0d 1f 9a 0f e7 | 20 6d 61 78 25 3c 3e 30 |=44.....| max%<>0|
|00005530| 20 8c 0d 1f a4 43 73 74 | 61 72 74 5f 78 25 3d 71 | ....Cst|art_x%=q|
|00005540| 25 21 34 2b 6c 65 66 74 | 6d 61 72 67 69 6e 25 2d |%!4+left|margin%-|
|00005550| 71 25 21 32 30 3a 73 74 | 61 72 74 5f 79 25 3d 71 |q%!20:st|art_y%=q|
|00005560| 25 21 31 36 2d 74 6f 70 | 6d 61 72 67 69 6e 25 2d |%!16-top|margin%-|
|00005570| 71 25 21 32 34 0d 1f ae | 18 e3 20 6c 6f 6f 70 25 |q%!24...|.. loop%|
|00005580| 3d 30 20 b8 20 28 6d 61 | 78 25 2d 31 29 0d 1f b8 |=0 . (ma|x%-1)...|
|00005590| 20 79 25 3d 73 74 61 72 | 74 5f 79 25 2d 6c 6f 6f | y%=star|t_y%-loo|
|000055a0| 70 25 2a 79 5f 73 70 61 | 63 69 6e 67 25 0d 1f c2 |p%*y_spa|cing%...|
|000055b0| 22 ec 20 73 74 61 72 74 | 5f 78 25 2c 79 25 3a f1 |". start|_x%,y%:.|
|000055c0| 20 61 72 72 61 79 24 28 | 6c 6f 6f 70 25 29 3b 0d | array$(|loop%);.|
|000055d0| 1f cc 05 ed 0d 1f d6 05 | cd 0d 1f e0 05 e1 0d 1f |........|........|
|000055e0| ea 05 3a 0d 1f f4 38 f4 | 20 48 65 72 65 20 62 65 |..:...8.| Here be|
|000055f0| 67 69 6e 73 20 74 68 65 | 20 52 65 64 63 6f 64 65 |gins the| Redcode|
|00005600| 20 65 78 65 63 75 74 69 | 76 65 20 63 6f 64 65 20 | executi|ve code |
|00005610| 73 75 70 70 6f 72 74 20 | 28 21 29 0d 1f fe 05 3a |support |(!)....:|
|00005620| 0d 20 08 13 dd 20 a4 69 | 6e 69 74 5f 6e 65 77 67 |. ... .i|nit_newg|
|00005630| 61 6d 65 0d 20 12 1e ea | 20 6c 70 2c 6c 70 32 2c |ame. ...| lp,lp2,|
|00005640| 6c 25 2c 61 70 70 6c 65 | 2c 78 2c 61 2c 6e 65 77 |l%,apple|,x,a,new|
|00005650| 25 0d 20 1c 5a e7 20 61 | 73 73 65 6d 62 6c 65 72 |%. .Z. a|ssembler|
|00005660| 5f 6f 70 65 72 61 74 69 | 76 65 25 20 8c 20 f2 77 |_operati|ve% . .w|
|00005670| 61 72 6e 69 6e 67 28 22 | 43 61 6e 6e 6f 74 20 70 |arning("|Cannot p|
|00005680| 6c 61 79 20 43 6f 72 65 | 20 57 61 72 20 77 68 69 |lay Core| War whi|
|00005690| 6c 65 20 61 73 73 65 6d | 62 6c 69 6e 67 2c 20 73 |le assem|bling, s|
|000056a0| 6f 72 72 79 2e 22 29 3a | 3d 2d 31 0d 20 26 1a 73 |orry."):|=-1. &.s|
|000056b0| 69 7a 65 25 3d 63 6f 72 | 65 5f 6d 65 6d 25 2a 35 |ize%=cor|e_mem%*5|
|000056c0| 2b 31 30 32 34 0d 20 30 | 33 c8 99 20 22 57 69 6d |+1024. 0|3.. "Wim|
|000056d0| 70 5f 53 6c 6f 74 53 69 | 7a 65 22 2c 28 73 74 61 |p_SlotSi|ze",(sta|
|000056e0| 72 74 73 6c 6f 74 25 2b | 73 69 7a 65 25 29 2c 2d |rtslot%+|size%),-|
|000056f0| 31 20 b8 20 6e 65 77 25 | 0d 20 3a 1f e7 20 28 6e |1 . new%|. :.. (n|
|00005700| 65 77 25 2d 73 74 61 72 | 74 73 6c 6f 74 25 29 3c |ew%-star|tslot%)<|
|00005710| 73 69 7a 65 25 20 8c 0d | 20 44 26 c8 99 20 22 57 |size% ..| D&.. "W|
|00005720| 69 6d 70 5f 53 6c 6f 74 | 53 69 7a 65 22 2c 63 75 |imp_Slot|Size",cu|
|00005730| 72 72 65 6e 74 73 6c 6f | 74 25 2c 2d 31 0d 20 4e |rrentslo|t%,-1. N|
|00005740| 42 f2 77 61 72 6e 69 6e | 67 28 22 43 6f 72 65 20 |B.warnin|g("Core |
|00005750| 57 61 72 20 6e 65 65 64 | 73 20 34 38 6b 20 66 72 |War need|s 48k fr|
|00005760| 65 65 20 6d 65 6d 6f 72 | 79 20 74 6f 20 72 75 6e |ee memor|y to run|
|00005770| 20 62 61 74 74 6c 65 73 | 2e 22 29 3a 3d 2d 31 0d | battles|."):=-1.|
|00005780| 20 58 05 cd 0d 20 62 15 | 63 75 72 72 65 6e 74 73 | X... b.|currents|
|00005790| 6c 6f 74 25 3d 6e 65 77 | 25 0d 20 6c 0f 63 6f 72 |lot%=new|%. l.cor|
|000057a0| 65 25 3d 93 2b 32 35 36 | 0d 20 76 2e 41 25 3d 63 |e%=.+256|. v.A%=c|
|000057b0| 6f 72 65 25 3a 42 25 3d | 63 6f 72 65 25 2b 28 63 |ore%:B%=|core%+(c|
|000057c0| 6f 72 65 5f 6d 65 6d 25 | 2a 35 29 3a d6 20 63 6c |ore_mem%|*5):. cl|
|000057d0| 65 61 72 6d 65 6d 0d 20 | 80 05 3a 0d 20 8a 50 e7 |earmem. |..:. .P.|
|000057e0| 20 73 69 6e 67 6c 65 5f | 74 61 73 6b 25 20 8c 20 | single_|task% . |
|000057f0| 63 75 72 72 65 6e 74 5f | 70 63 5f 74 61 62 6c 65 |current_|pc_table|
|00005800| 20 3d 20 61 5f 70 63 5f | 74 61 62 6c 65 20 8b 20 | = a_pc_|table . |
|00005810| 63 75 72 72 65 6e 74 5f | 70 63 5f 74 61 62 6c 65 |current_|pc_table|
|00005820| 20 3d 20 70 63 5f 74 61 | 62 6c 65 0d 20 94 19 f2 | = pc_ta|ble. ...|
|00005830| 70 63 28 30 2c 30 2c b3 | 28 63 6f 72 65 5f 6d 65 |pc(0,0,.|(core_me|
|00005840| 6d 25 29 29 0d 20 9e 31 | f5 3a 61 70 70 6c 65 3d |m%)). .1|.:apple=|
|00005850| b3 28 63 6f 72 65 5f 6d | 65 6d 25 29 3a fd 20 94 |.(core_m|em%):. .|
|00005860| 28 a4 70 63 28 30 2c 30 | 29 2d 61 70 70 6c 65 29 |(.pc(0,0|)-apple)|
|00005870| 3e 31 30 30 30 0d 20 a8 | 12 f2 70 63 28 31 2c 30 |>1000. .|..pc(1,0|
|00005880| 2c 61 70 70 6c 65 29 0d | 20 b2 05 3a 0d 20 bc 15 |,apple).| ..:. ..|
|00005890| 21 63 6f 72 65 5f 6c 6f | 63 20 3d 20 63 6f 72 65 |!core_lo|c = core|
|000058a0| 25 0d 20 c6 1a 21 73 70 | 72 69 74 65 5f 6c 6f 63 |%. ..!sp|rite_loc|
|000058b0| 20 3d 20 73 70 72 69 74 | 65 73 25 0d 20 d0 19 21 | = sprit|es%. ..!|
|000058c0| 73 63 72 65 65 6e 5f 6c | 6f 63 20 3d 20 73 63 72 |screen_l|oc = scr|
|000058d0| 65 65 6e 25 0d 20 da 45 | e7 20 73 65 74 5f 6d 61 |een%. .E|. set_ma|
|000058e0| 78 5f 63 79 63 6c 65 73 | 25 20 8c 20 21 63 79 63 |x_cycles|% . !cyc|
|000058f0| 6c 65 5f 6c 69 6d 69 74 | 20 3d 20 6d 61 78 5f 63 |le_limit| = max_c|
|00005900| 79 63 6c 65 73 25 20 8b | 20 21 63 79 63 6c 65 5f |ycles% .| !cycle_|
|00005910| 6c 69 6d 69 74 20 3d 20 | 30 0d 20 e4 1f 70 6c 72 |limit = |0. ..plr|
|00005920| 5f 73 70 6c 5f 6c 6f 63 | 21 30 20 3d 20 73 63 72 |_spl_loc|!0 = scr|
|00005930| 5f 73 70 6c 25 28 30 29 | 0d 20 ee 1f 70 6c 72 5f |_spl%(0)|. ..plr_|
|00005940| 73 70 6c 5f 6c 6f 63 21 | 34 20 3d 20 73 63 72 5f |spl_loc!|4 = scr_|
|00005950| 73 70 6c 25 28 31 29 0d | 20 f8 1f 24 73 63 72 5f |spl%(1).| ..$scr_|
|00005960| 70 6c 72 25 28 30 29 3d | 24 6c 6f 61 64 65 72 5f |plr%(0)=|$loader_|
|00005970| 70 6c 25 28 30 29 0d 21 | 02 1f 24 73 63 72 5f 70 |pl%(0).!|..$scr_p|
|00005980| 6c 72 25 28 31 29 3d 24 | 6c 6f 61 64 65 72 5f 70 |lr%(1)=$|loader_p|
|00005990| 6c 25 28 31 29 0d 21 0c | 05 3a 0d 21 16 16 e7 20 |l%(1).!.|.:.!... |
|000059a0| 73 69 6e 67 6c 65 5f 74 | 61 73 6b 25 3d b9 20 8c |single_t|ask%=. .|
|000059b0| 0d 21 20 10 21 70 6c 6f | 74 5f 74 79 70 65 3d 30 |.! .!plo|t_type=0|
|000059c0| 0d 21 2a 16 3d 20 a4 69 | 6e 69 74 5f 73 69 6e 67 |.!*.= .i|nit_sing|
|000059d0| 6c 65 74 61 73 6b 0d 21 | 34 05 cc 0d 21 3e 10 21 |letask.!|4...!>.!|
|000059e0| 70 6c 6f 74 5f 74 79 70 | 65 3d 31 0d 21 48 05 3a |plot_typ|e=1.!H.:|
|000059f0| 0d 21 52 2e c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |.!R... "|OS_Sprit|
|00005a00| 65 4f 70 22 2c 26 31 30 | 30 2b 32 35 2c 73 70 72 |eOp",&10|0+25,spr|
|00005a10| 69 74 65 73 25 2c 22 73 | 63 72 65 65 6e 22 0d 21 |ites%,"s|creen".!|
|00005a20| 5c 54 c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |\T.. "OS|_SpriteO|
|00005a30| 70 22 2c 26 31 30 30 2b | 31 35 2c 73 70 72 69 74 |p",&100+|15,sprit|
|00005a40| 65 73 25 2c 22 73 63 72 | 65 65 6e 22 2c 30 2c 77 |es%,"scr|een",0,w|
|00005a50| 69 64 74 68 5f 70 69 78 | 25 2c 68 65 69 67 68 74 |idth_pix|%,height|
|00005a60| 5f 70 69 78 25 2c 73 63 | 72 65 65 6e 5f 6d 6f 64 |_pix%,sc|reen_mod|
|00005a70| 65 25 0d 21 66 05 3a 0d | 21 70 16 e3 20 6c 70 20 |e%.!f.:.|!p.. lp |
|00005a80| 20 3d 20 30 20 b8 20 6d | 61 78 70 6c 72 0d 21 7a | = 0 . m|axplr.!z|
|00005a90| 23 e3 20 6c 70 32 20 3d | 20 30 20 b8 20 28 70 72 |#. lp2 =| 0 . (pr|
|00005aa0| 6f 67 5f 6c 65 6e 25 28 | 6c 70 29 2f 35 29 2d 31 |og_len%(|lp)/5)-1|
|00005ab0| 0d 21 84 1d 6c 25 3d 70 | 72 6f 67 5f 63 6f 64 65 |.!..l%=p|rog_code|
|00005ac0| 25 28 6c 70 29 2b 28 6c | 70 32 2a 35 29 0d 21 8e |%(lp)+(l|p2*5).!.|
|00005ad0| 6e f2 73 74 6f 28 6c 25 | 3f 30 20 80 20 26 46 2c |n.sto(l%|?0 . &F,|
|00005ae0| 28 6c 25 3f 30 20 80 20 | 26 33 30 29 2f 31 36 2c |(l%?0 . |&30)/16,|
|00005af0| 28 6c 25 3f 30 20 80 20 | 26 43 30 29 2f 36 34 2c |(l%?0 . |&C0)/64,|
|00005b00| 6c 25 3f 31 2b 28 6c 25 | 3f 32 29 2a 32 35 36 2c |l%?1+(l%|?2)*256,|
|00005b10| 6c 25 3f 33 2b 28 6c 25 | 3f 34 29 2a 32 35 36 2c |l%?3+(l%|?4)*256,|
|00005b20| a4 70 63 28 6c 70 2c 30 | 29 2b 6c 70 32 2c 63 6f |.pc(lp,0|)+lp2,co|
|00005b30| 6c 5f 74 61 62 6c 65 3f | 6c 70 29 0d 21 98 05 ed |l_table?|lp).!...|
|00005b40| 0d 21 a2 07 d9 23 78 0d | 21 ac 54 24 28 70 6c 72 |.!...#x.|!.T$(plr|
|00005b50| 5f 6e 61 6d 65 73 2b 6c | 70 2a 31 36 29 3d a4 6c |_names+l|p*16)=.l|
|00005b60| 65 61 66 28 70 6c 61 79 | 65 72 24 28 6c 70 29 29 |eaf(play|er$(lp))|
|00005b70| 3a 3f 28 70 6c 72 5f 6e | 61 6d 65 73 2b 6c 70 2a |:?(plr_n|ames+lp*|
|00005b80| 31 36 2b a9 28 a4 6c 65 | 61 66 28 70 6c 61 79 65 |16+.(.le|af(playe|
|00005b90| 72 24 28 6c 70 29 29 29 | 29 3d 30 0d 21 b6 08 ed |r$(lp)))|)=0.!...|
|00005ba0| 20 20 20 0d 21 c0 05 3a | 0d 21 ca 20 24 62 61 6e |   .!..:|.!. $ban|
|00005bb0| 6e 65 72 25 3d 22 42 61 | 74 74 6c 65 20 50 72 6f |ner%="Ba|ttle Pro|
|00005bc0| 63 65 65 64 69 6e 67 22 | 0d 21 d4 46 c8 99 20 22 |ceeding"|.!.F.. "|
|00005bd0| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|00005be0| 22 2c 73 63 72 65 65 6e | 25 2c 30 2c 30 2c 73 63 |",screen|%,0,0,sc|
|00005bf0| 72 65 65 6e 5f 77 69 64 | 74 68 25 2c 73 63 72 65 |reen_wid|th%,scre|
|00005c00| 65 6e 5f 68 65 69 67 68 | 74 25 2b 31 32 38 0d 21 |en_heigh|t%+128.!|
|00005c10| de 05 3a 0d 21 e8 20 24 | 69 63 6f 6e 62 61 72 5f |..:.!. $|iconbar_|
|00005c20| 73 70 72 69 74 65 25 3d | 22 63 6f 72 65 5f 77 6f |sprite%=|"core_wo|
|00005c30| 72 6b 22 0d 21 f2 41 71 | 25 21 30 3d 2d 32 3a 71 |rk".!.Aq|%!0=-2:q|
|00005c40| 25 21 34 3d 69 63 62 61 | 72 25 3a 71 25 21 38 3d |%!4=icba|r%:q%!8=|
|00005c50| 30 3a 71 25 21 31 32 3d | 30 3a c8 99 20 22 57 69 |0:q%!12=|0:.. "Wi|
|00005c60| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|00005c70| 2c 2c 71 25 0d 21 fc 05 | 3a 0d 22 06 13 f2 66 72 |,,q%.!..|:."...fr|
|00005c80| 6f 6e 74 28 73 63 72 65 | 65 6e 25 29 0d 22 10 05 |ont(scre|en%)."..|
|00005c90| 3a 0d 22 1a 2c 73 63 72 | 65 65 6e 6d 65 6e 75 24 |:.".,scr|eenmenu$|
|00005ca0| 3d a4 75 6e 67 72 65 79 | 28 73 63 72 65 65 6e 6d |=.ungrey|(screenm|
|00005cb0| 65 6e 75 24 2c 22 50 61 | 75 73 65 22 29 0d 22 24 |enu$,"Pa|use")."$|
|00005cc0| 2b 73 63 72 65 65 6e 6d | 65 6e 75 24 3d a4 75 6e |+screenm|enu$=.un|
|00005cd0| 67 72 65 79 28 73 63 72 | 65 65 6e 6d 65 6e 75 24 |grey(scr|eenmenu$|
|00005ce0| 2c 22 53 74 6f 70 22 29 | 0d 22 2e 2a 69 63 62 61 |,"Stop")|.".*icba|
|00005cf0| 72 6d 65 6e 75 24 20 3d | a4 75 6e 67 72 65 79 28 |rmenu$ =|.ungrey(|
|00005d00| 69 63 62 61 72 6d 65 6e | 75 24 2c 22 53 74 6f 70 |icbarmen|u$,"Stop|
|00005d10| 22 29 0d 22 38 1e 70 61 | 75 73 65 64 25 3d a3 3a |")."8.pa|used%=.:|
|00005d20| 66 69 6e 69 73 68 65 64 | 5f 67 61 6d 65 25 3d a3 |finished|_game%=.|
|00005d30| 0d 22 42 08 3a 20 20 20 | 0d 22 4c 06 3d 91 0d 22 |."B.:   |."L.=.."|
|00005d40| 56 05 cd 0d 22 60 07 3d | 2d 31 0d 22 6a 05 3a 0d |V..."`.=|-1."j.:.|
|00005d50| 22 74 16 dd 20 a4 69 6e | 69 74 5f 73 69 6e 67 6c |"t.. .in|it_singl|
|00005d60| 65 74 61 73 6b 0d 22 7e | 13 ea 20 72 65 74 75 72 |etask."~|.. retur|
|00005d70| 6e 25 2c 64 75 6d 6d 79 | 0d 22 88 05 3a 0d 22 92 |n%,dummy|."..:.".|
|00005d80| 0e 72 65 74 75 72 6e 25 | 3d 2d 31 0d 22 9c 05 3a |.return%|=-1."..:|
|00005d90| 0d 22 a6 0c 6d 6f 64 65 | 25 3d 20 eb 0d 22 b0 06 |."..mode|%= .."..|
|00005da0| ef 34 0d 22 ba 07 eb 20 | 38 0d 22 c4 05 87 0d 22 |.4."... |8."...."|
|00005db0| ce 05 3a 0d 22 d8 09 fb | 20 31 2c 32 0d 22 e2 09 |..:."...| 1,2."..|
|00005dc0| fb 20 32 2c 31 0d 22 ec | 05 3a 0d 22 f6 16 e3 20 |. 2,1.".|.:."... |
|00005dd0| 6c 70 20 20 3d 20 30 20 | b8 20 6d 61 78 70 6c 72 |lp  = 0 |. maxplr|
|00005de0| 0d 23 00 10 e6 20 30 2c | 70 63 6f 6c 28 6c 70 29 |.#... 0,|pcol(lp)|
|00005df0| 0d 23 0a 23 e3 20 6c 70 | 32 20 3d 20 30 20 b8 20 |.#.#. lp|2 = 0 . |
|00005e00| 28 70 72 6f 67 5f 6c 65 | 6e 25 28 6c 70 29 2f 35 |(prog_le|n%(lp)/5|
|00005e10| 29 2d 31 0d 23 14 1d 6c | 25 3d 70 72 6f 67 5f 63 |)-1.#..l|%=prog_c|
|00005e20| 6f 64 65 25 28 6c 70 29 | 2b 28 6c 70 32 2a 35 29 |ode%(lp)|+(lp2*5)|
|00005e30| 0d 23 1e 64 f2 73 74 6f | 28 6c 25 3f 30 20 80 20 |.#.d.sto|(l%?0 . |
|00005e40| 26 46 2c 28 6c 25 3f 30 | 20 80 20 26 33 30 29 2f |&F,(l%?0| . &30)/|
|00005e50| 31 36 2c 28 6c 25 3f 30 | 20 80 20 26 43 30 29 2f |16,(l%?0| . &C0)/|
|00005e60| 36 34 2c 6c 25 3f 31 2b | 28 6c 25 3f 32 29 2a 32 |64,l%?1+|(l%?2)*2|
|00005e70| 35 36 2c 6c 25 3f 33 2b | 28 6c 25 3f 34 29 2a 32 |56,l%?3+|(l%?4)*2|
|00005e80| 35 36 2c a4 70 63 28 6c | 70 2c 30 29 2b 6c 70 32 |56,.pc(l|p,0)+lp2|
|00005e90| 2c 2d 31 29 0d 23 28 1b | f2 61 5f 70 6f 69 6e 74 |,-1).#(.|.a_point|
|00005ea0| 28 a4 70 63 28 6c 70 2c | 30 29 2b 6c 70 32 29 0d |(.pc(lp,|0)+lp2).|
|00005eb0| 23 32 05 ed 0d 23 3c 58 | 24 28 61 5f 70 6c 72 5f |#2...#<X|$(a_plr_|
|00005ec0| 6e 61 6d 65 73 2b 6c 70 | 2a 31 36 29 3d a4 6c 65 |names+lp|*16)=.le|
|00005ed0| 61 66 28 70 6c 61 79 65 | 72 24 28 6c 70 29 29 3a |af(playe|r$(lp)):|
|00005ee0| 3f 28 61 5f 70 6c 72 5f | 6e 61 6d 65 73 2b 6c 70 |?(a_plr_|names+lp|
|00005ef0| 2a 31 36 2b a9 28 a4 6c | 65 61 66 28 70 6c 61 79 |*16+.(.l|eaf(play|
|00005f00| 65 72 24 28 6c 70 29 29 | 29 29 3d 30 0d 23 46 05 |er$(lp))|))=0.#F.|
|00005f10| ed 0d 23 50 05 3a 0d 23 | 5a 11 73 74 61 72 74 5f |..#P.:.#|Z.start_|
|00005f20| 74 69 6d 65 25 3d 91 0d | 23 64 08 41 25 3d 30 0d |time%=..|#d.A%=0.|
|00005f30| 23 6e 19 d6 20 61 5f 6c | 65 74 73 5f 70 6c 61 79 |#n.. a_l|ets_play|
|00005f40| 5f 63 6f 72 65 77 61 72 | 0d 23 78 09 65 6e 64 3d |_corewar|.#x.end=|
|00005f50| 91 0d 23 82 05 3a 0d 23 | 8c 54 e7 20 21 28 74 6f |..#..:.#|.T. !(to|
|00005f60| 70 5f 73 74 6f 72 65 2b | 28 21 70 6c 72 5f 73 74 |p_store+|(!plr_st|
|00005f70| 6f 72 65 29 2a 34 29 20 | 3d 20 2d 31 20 84 20 28 |ore)*4) |= -1 . (|
|00005f80| 21 63 79 63 6c 65 73 20 | 3d 20 6d 61 78 5f 63 79 |!cycles |= max_cy|
|00005f90| 63 6c 65 73 25 20 80 20 | 73 65 74 5f 6d 61 78 5f |cles% . |set_max_|
|00005fa0| 63 79 63 6c 65 73 25 29 | 20 8c 0d 23 96 1b 64 75 |cycles%)| ..#..du|
|00005fb0| 6d 6d 79 3d a4 73 63 72 | 65 65 6e 5f 74 6f 5f 77 |mmy=.scr|een_to_w|
|00005fc0| 69 6e 64 6f 77 0d 23 a0 | 2f e7 20 21 63 79 63 6c |indow.#.|/. !cycl|
|00005fd0| 65 73 20 3d 20 6d 61 78 | 5f 63 79 63 6c 65 73 25 |es = max|_cycles%|
|00005fe0| 20 80 20 73 65 74 5f 6d | 61 78 5f 63 79 63 6c 65 | . set_m|ax_cycle|
|00005ff0| 73 25 20 8c 0d 23 aa 49 | 24 62 61 6e 6e 65 72 25 |s% ..#.I|$banner%|
|00006000| 3d 22 44 72 61 77 20 5b | 22 2b c3 28 21 63 79 63 |="Draw [|"+.(!cyc|
|00006010| 6c 65 73 29 2b 22 20 63 | 79 63 6c 65 73 2c 20 22 |les)+" c|ycles, "|
|00006020| 2b c3 a8 28 28 91 2d 73 | 74 61 72 74 5f 74 69 6d |+..((.-s|tart_tim|
|00006030| 65 25 29 2f 31 30 30 29 | 2b 22 73 5d 22 0d 23 b4 |e%)/100)|+"s]".#.|
|00006040| 05 cc 0d 23 be 65 24 62 | 61 6e 6e 65 72 25 3d a4 |...#.e$b|anner%=.|
|00006050| 6c 65 61 66 28 70 6c 61 | 79 65 72 24 28 21 70 6c |leaf(pla|yer$(!pl|
|00006060| 72 5f 73 74 6f 72 65 29 | 29 2b 22 20 6c 6f 73 74 |r_store)|)+" lost|
|00006070| 20 5b 22 2b c3 28 21 63 | 79 63 6c 65 73 29 2b 22 | ["+.(!c|ycles)+"|
|00006080| 20 63 79 63 6c 65 73 2c | 20 22 2b c3 a8 28 28 91 | cycles,| "+..((.|
|00006090| 2d 73 74 61 72 74 5f 74 | 69 6d 65 25 29 2f 31 30 |-start_t|ime%)/10|
|000060a0| 30 29 2b 22 73 5d 22 0d | 23 c8 05 cd 0d 23 d2 1f |0)+"s]".|#....#..|
|000060b0| 24 69 63 6f 6e 62 61 72 | 5f 73 70 72 69 74 65 25 |$iconbar|_sprite%|
|000060c0| 3d 22 21 63 6f 72 65 77 | 61 72 22 0d 23 dc 85 66 |="!corew|ar".#..f|
|000060d0| 69 6e 69 73 68 65 64 5f | 67 61 6d 65 25 3d b9 3a |inished_|game%=.:|
|000060e0| 73 63 72 65 65 6e 6d 65 | 6e 75 24 3d a4 67 72 65 |screenme|nu$=.gre|
|000060f0| 79 28 73 63 72 65 65 6e | 6d 65 6e 75 24 2c 22 50 |y(screen|menu$,"P|
|00006100| 61 75 73 65 22 29 3a 73 | 63 72 65 65 6e 6d 65 6e |ause"):s|creenmen|
|00006110| 75 24 3d a4 67 72 65 79 | 28 73 63 72 65 65 6e 6d |u$=.grey|(screenm|
|00006120| 65 6e 75 24 2c 22 53 74 | 6f 70 22 29 3a 69 63 62 |enu$,"St|op"):icb|
|00006130| 61 72 6d 65 6e 75 24 3d | a4 67 72 65 79 28 69 63 |armenu$=|.grey(ic|
|00006140| 62 61 72 6d 65 6e 75 24 | 2c 22 53 74 6f 70 22 29 |barmenu$|,"Stop")|
|00006150| 0d 23 e6 05 cc 0d 23 f0 | 05 3a 0d 23 fa 19 e7 20 |.#....#.|.:.#... |
|00006160| a4 73 63 72 65 65 6e 5f | 74 6f 5f 77 69 6e 64 6f |.screen_|to_windo|
|00006170| 77 20 8c 0d 24 04 05 3a | 0d 24 0e 20 24 62 61 6e |w ..$..:|.$. $ban|
|00006180| 6e 65 72 25 3d 22 42 61 | 74 74 6c 65 20 50 72 6f |ner%="Ba|ttle Pro|
|00006190| 63 65 65 64 69 6e 67 22 | 0d 24 18 46 c8 99 20 22 |ceeding"|.$.F.. "|
|000061a0| 57 69 6d 70 5f 46 6f 72 | 63 65 52 65 64 72 61 77 |Wimp_For|ceRedraw|
|000061b0| 22 2c 73 63 72 65 65 6e | 25 2c 30 2c 30 2c 73 63 |",screen|%,0,0,sc|
|000061c0| 72 65 65 6e 5f 77 69 64 | 74 68 25 2c 73 63 72 65 |reen_wid|th%,scre|
|000061d0| 65 6e 5f 68 65 69 67 68 | 74 25 2b 31 32 38 0d 24 |en_heigh|t%+128.$|
|000061e0| 22 05 3a 0d 24 2c 20 24 | 69 63 6f 6e 62 61 72 5f |".:.$, $|iconbar_|
|000061f0| 73 70 72 69 74 65 25 3d | 22 63 6f 72 65 5f 77 6f |sprite%=|"core_wo|
|00006200| 72 6b 22 0d 24 36 05 3a | 0d 24 40 05 3a 0d 24 4a |rk".$6.:|.$@.:.$J|
|00006210| 2c 73 63 72 65 65 6e 6d | 65 6e 75 24 3d a4 75 6e |,screenm|enu$=.un|
|00006220| 67 72 65 79 28 73 63 72 | 65 65 6e 6d 65 6e 75 24 |grey(scr|eenmenu$|
|00006230| 2c 22 50 61 75 73 65 22 | 29 0d 24 54 2b 73 63 72 |,"Pause"|).$T+scr|
|00006240| 65 65 6e 6d 65 6e 75 24 | 3d a4 75 6e 67 72 65 79 |eenmenu$|=.ungrey|
|00006250| 28 73 63 72 65 65 6e 6d | 65 6e 75 24 2c 22 53 74 |(screenm|enu$,"St|
|00006260| 6f 70 22 29 0d 24 5e 2a | 69 63 62 61 72 6d 65 6e |op").$^*|icbarmen|
|00006270| 75 24 20 3d a4 75 6e 67 | 72 65 79 28 69 63 62 61 |u$ =.ung|rey(icba|
|00006280| 72 6d 65 6e 75 24 2c 22 | 53 74 6f 70 22 29 0d 24 |rmenu$,"|Stop").$|
|00006290| 68 1e 70 61 75 73 65 64 | 25 3d a3 3a 66 69 6e 69 |h.paused|%=.:fini|
|000062a0| 73 68 65 64 5f 67 61 6d | 65 25 3d a3 0d 24 72 05 |shed_gam|e%=..$r.|
|000062b0| 3a 0d 24 7c 10 21 70 6c | 6f 74 5f 74 79 70 65 3d |:.$|.!pl|ot_type=|
|000062c0| 31 0d 24 86 08 41 25 3d | 31 0d 24 90 15 21 6f 6c |1.$..A%=|1.$..!ol|
|000062d0| 64 5f 74 6f 70 5f 73 75 | 6d 20 3d 20 2d 31 0d 24 |d_top_su|m = -1.$|
|000062e0| 9a 05 3a 0d 24 a4 17 72 | 65 74 75 72 6e 25 3d 73 |..:.$..r|eturn%=s|
|000062f0| 74 61 72 74 5f 74 69 6d | 65 25 0d 24 ae 05 3a 0d |tart_tim|e%.$..:.|
|00006300| 24 b8 05 cc 0d 24 c2 85 | 66 69 6e 69 73 68 65 64 |$....$..|finished|
|00006310| 5f 67 61 6d 65 25 3d b9 | 3a 73 63 72 65 65 6e 6d |_game%=.|:screenm|
|00006320| 65 6e 75 24 3d a4 67 72 | 65 79 28 73 63 72 65 65 |enu$=.gr|ey(scree|
|00006330| 6e 6d 65 6e 75 24 2c 22 | 50 61 75 73 65 22 29 3a |nmenu$,"|Pause"):|
|00006340| 73 63 72 65 65 6e 6d 65 | 6e 75 24 3d a4 67 72 65 |screenme|nu$=.gre|
|00006350| 79 28 73 63 72 65 65 6e | 6d 65 6e 75 24 2c 22 53 |y(screen|menu$,"S|
|00006360| 74 6f 70 22 29 3a 69 63 | 62 61 72 6d 65 6e 75 24 |top"):ic|barmenu$|
|00006370| 3d a4 67 72 65 79 28 69 | 63 62 61 72 6d 65 6e 75 |=.grey(i|cbarmenu|
|00006380| 24 2c 22 53 74 6f 70 22 | 29 0d 24 cc 16 24 62 61 |$,"Stop"|).$..$ba|
|00006390| 6e 6e 65 72 25 3d 22 41 | 62 6f 72 74 65 64 22 0d |nner%="A|borted".|
|000063a0| 24 d6 1f 24 69 63 6f 6e | 62 61 72 5f 73 70 72 69 |$..$icon|bar_spri|
|000063b0| 74 65 25 3d 22 21 63 6f | 72 65 77 61 72 22 0d 24 |te%="!co|rewar".$|
|000063c0| e0 05 cd 0d 24 ea 05 cd | 0d 24 f4 06 ef 35 0d 24 |....$...|.$...5.$|
|000063d0| fe 1b c8 99 20 22 57 69 | 6d 70 5f 53 65 74 4d 6f |.... "Wi|mp_SetMo|
|000063e0| 64 65 22 2c 6d 6f 64 65 | 25 0d 25 08 13 f2 66 72 |de",mode|%.%...fr|
|000063f0| 6f 6e 74 28 73 63 72 65 | 65 6e 25 29 0d 25 12 41 |ont(scre|en%).%.A|
+--------+-------------------------+-------------------------+--------+--------+